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CURSOR DOWN 
CURSOR LEFT 
CURSOR RIGHT 
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HEX - ASCII CONVERSION TABLE 
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Herselt, april '85 


Beste leden, 


We ontvingen enige berichten in 
verband met INDATA : de distributie 
van de DAI zal in Belgie waargeno- 
men worden door de firma SIDEL. 
Ze zullen mikken op de 
onderwijsmarkt, de implementatie 
van ELAN op de DAI zou hierbij een 
sterk argument moeten zijn. We 
hebben deze realisatie nog niet 
kunnen testen, we wensen de firma 
SIDEL alle succes. 


Dit nummer biedt weer het klassieke 
varia aan programma's en artikelen. 
De presentatie is gewijzigd 
(verbeterd naar wij hopen?), dat 
zullen we wel merken aan uw 
reacties. Mogelijk is het 
interessant om over te stappen naar 
2 kolommen per pagina. Dit maakt 
het geheel beter leesbaar en biedt 
ons ook de mogelijkheid om dezelfde 
hoeveelheid materiaal in een 
kleinere ruimte te publiceren. Daar 
we niet alle ingezonden stukken 
opnieuw kunnen intikken willen we 
voorstellen om voortaan een 
kolombreedte van +/- 35 karakters 
per lijn aan te houden.(40 opMX82). 


In deze uitgave wordt slechts 1 
nieuw pakket aangekondigd 
PATROUILLER. Wel een programma met 
klasse, duidelijk nog beter dan de 
vorige hit van PASCAL JANIN 

, PHOENIX'. 


We hebben net (nog duidelijk 
voelbaar) de HCC dagen Belgie 
achter de rug. Beslist minder 
bezoekers dan vorig jaar, Frank 
Druijff en de andere collega's 
vertellen hetzelfde over de 
computerdag in Roozendaal. 
Waarschijnlijk veroorzaakt de 
overdaad aan dergelijke manifes- 
taties toch een beursmoeheid bij 
het publiek. (Of voelt het publiek 


een zekere moeheid in eigen beurs 
22) 


*VOORWOORD* 


Jan Boerrigter еп co brengen met 
hun DAI DOS 1541 andermaal een 
belangrijke  bijdrage voor het DAI- 
gebeuren. We zien deze realisatie 
als een degelijk alternatief voor 
de DCR. Iets duurder, maar wel dui- 
delijk meer mogelijkheden. 

U kan het hele verhaal lezen op 
bladzijde 113 en volgende. 


In de volgende uitgave vervolgt 
A.Beuckelaers zijn serie over de 
DCE-bus. In dat verband  kunnen we 
melden dat we opnieuw een kleine 
voorraad hebben van blanco 
DCE-interface kaarten. De prijs is 
1450 Bf voor de twee kaartjes 
(zonder componenten ). 


groetjes, 
tot de volgende keer 


W.Hermans 
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Deze keer wilde ik beginnen met een oude belofte gestand te doen. Al ruim een 
jaar geleden kondigde ik aan eens iets te schrijven over de functies die in de 
DAI-basic zitten. Dat zal dus nu gebeuren. 


Volgens ons handboek , paragraaf 6.2.1.2 bezit de DAI-basic een veertigtal 
functies. In vergelijking tot vele andere machines is dit best een redelijk 
aantal. Een aantal van de functies die de DAI~basic mist zullen echter daor 

de meeste programmeurs niet of nauwelijks gemist worden. Sterker ik ben er 

van overtuigd dat een groot aantal DAI-gebruikers nog nooit alle functies heb- 
ben gebruikt. Dit kan vanzelfsprekend komen door het feit dat niet iedereen 
alle functies nodig heeft, maar ook doordat men niet alle functies kent of 
niet weet hoe ze gebruikt moeten worden, In het komende zal ik trachten aan 
dat laatste een eind te maken, zodat dan niet gebruiken alleen komt door niet 
nodig hebben. 


Wat is nu eigenlijk een functie ? Welnu een functie is simpel gezegd een of 
ander voorschrift dat aan een meegegeven argument een beeld toevoegt. Wat heet 
simpel gezegd zullen sommigen nu misschien verzuchten, Ik zal echter trachten 
de lezers die niet thuis zijn in de ‘moderne wiskunde’ aan de hand van wat 
voorbeelden toch enig inzicht in deze materie te geven. 


Voorbeeld 1 
Bekijk de onderstaande stamboom waarvan alleen mannelijke leden vermeld zijn. 


Pieter Als functie nemen we het voorschrift 
AAN zoon WORDT TOEGEVOEGD vader 


Johannus Gerard We zien in de stamboom dan b.v. dat 
Gerard de vader is van Frank, 
Piet Klaas We zeggen dat Frank het origineel 


Frapk 
/ 5 is en Gerard het beeld. 


Jan Wim Jules Henk Aad Fred Evenzo is Johannus het beeld als we 
Klaas als origneel nemen, 

Dit zal velen onlogisch in de oren klinken, (bij lezers onlogisch in de ogen 
schijnen ?) maar als we denken aan het voorschrift in kwestie is het wel lo- 
gisch. Het voorschrift luidt ‘aan zoon wordt toegevoegd vader’ en we kunnen 
alleen de vader weten als aan een aantal voorwaarden is voldaan, We moeten de 
zoon weten waarvan de vader genoemd moet worden: deze zoon is het argument van 
de functie, Deze zoon zal in ons voorbeeld moeten staan omdat we er anders 
niets over kunnen zeggen; wiskundig: de argumenten moeten voorkomen in het do- 
mein van de functie. Het domein van de functie is dus een verzameling van ar- 
gumenten waarvoor de functie gedefinieerd is, De vader die aan een zoon wordt 
toegevoegd is dan in deze zegswijze een beeld. De verzameling van vaders die 
bij de gegeven verzameling zonen (domein) komt heet het bereik, Besef wel dat 
hoewel Pieter biologisch wel zoon zal zijn hij toch niet in het domein zit. 
Eveneens is er gegeven ons voorbeeld geen vader te vinden op de onderste rij 
van de stamboom. Een belangrijk aspect van functies heb ik echter nog niet 
genoemd. Bij elke zoon hoort slechts een vader en er hoort er altijd precies 
een vader bij. Er zijn dus geen zonen zonder vader en er is ook geen zoon te 
vinden die twee of meer vaders heeft. We spreken in de wiskunde slechts van 
een functie als aan deze voorwaarde is voldaan. Ons voorschrift had dus ook 
beslist niet kunnen luiden 'aan vader wordt toegevoegd zoon’ omdat dan bij 
bepaalde vaders niet een eenduidig antwoord is te geven en dat eist het be- 
grip functie nu eenmaal wel. 
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Voorbeeld 2 


Dit tweede voorbeeld is weliswaar wiskundiger maar zal toch eenvoudiger zijn 
te begrijpen. Als domein nemen we de getallenverzameling 0,1,2,3,4,8,6,.... 
van de natuurlijke getallen. Als functie neem ik: aan elk getal uit het domein 
wordt het getal toegevoegd dat drie groter is dan het dubbele van dat getal. 
We krijgen dus dat aan 2 wordt toegevoegd 7 en aan 3 wordt 9 toegevoegd. Pas 
op maak niet de fout die al vele middelbare scholieren hebben gemaakt : toe- 
voegen is niet optellen maar is te vergelijken met koppelen of relateren. Het 
is simpel in te zien dat ook hier aan de voorwaarde voldaan wordt dat bij elk 
argument slechts een beeld hoort en dat dat beeld er altijd is. 


Voorbeeid 3 


Als derde voorbeeld wilde ik bij hetzelfde domein als bij het tweede voor- 

beeld als voorschrift nemen: aan elk getal uit het domein wordt toegvoegd i 
de rest die verkregen wordt door het argument door drie te delen. Aan 7 wordt 

dan toegevoegd 1 en aan 11 wordt 2 toegevoegd. Pas op aan 16 wordt net als 

aan 7 ook 1 toegevoegd. Bij elk origineel hoort dus wel degelijk een beeld 

maar in tegenstelling tot voorbeeld twee hoort niet bij elk beeld een origi- 

neel, Bij voorbeeld 1 was dit trouwens ook niet zo. 


Waarom deze uitleg ? Wel velen zullen problemen hebben om de functies die in 
het handboek genoemd worden als zodanig te herkennen. Maar met de zoeven ge- 
geven inzichten zult U in staat zijn de functie te herkennen, Er is echter een 
uitzonderings nl. PI dit is geen functie maar een standaard constante. Toch 
staat PI bij de functies genoemd. Als u de lijst van paragraaf 6.2.1.2 door- 
neemt krijgt U misschien het idee dat er nog wel een paar bijstaan die geen 
echte functies zijn. Hierbij denkt U dan vermoedelijk aap de functies waarbij 
we geen argument behoeven op te geven. We zullen echter in het vervolg zien 
dat de gebruikte argumenten er wel degelijk zijn al behoeven wij ze niet op te 
geven, 


De functies van het handboek kunnen in groepen onderverdeeld worden : 


Functies met 3 Functies met з Functies met H Functies 
tekstvariabele :  getalsvariabele : getalsvariabele з schijnbaar zonder 
als argument en з als argument en з als argument en : argument en 
getalavariabele : getalsvariabele : tekstvariabele : getalavariabele | 
als beeld Н als beeld 1 als beeld 1 als beeld | 
Б NS ШП ШИ ШИ СШ ШП VAG ns ЕП АШ BY ШЕШШ ДШ ШЕ DD UD A H EE Gs SAR OS SD ШШ E Se eB Sa SE SS ШЕШ ae Re as ПШ ШОШ} IEDM ERE RRR mm 
ASC 3 ABS D CHR$ P CURX 
LEN 1 ACOS 3 HEX$ 1 CURY 
VAL. 3 ALOG А LEFTS 1 FRE 
VARPTR 3 ASIN 1 MIDS 3 GETC 
i АТМ t RIGHTS 8 ХМАХ 
1 cos : STR$ : YMAX | 
А ЕХР : SPC 1 | 
D FRAC D ТАВ 1 | 
8 FREQ t : 
Н INP Н Н 
В INT 8 i 
Н 06 Я i 
3 LOGT Н E 
8 PDL : Н 
Н РЕЕК А 8 
3 RND Н i 
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SCRN 
SGN 
SIN 
SOR 
TAN 
VARPTR 


аа oa ез os op Ro ep 
зе өз us зв ss «s as 
эз эш аз ss sa ва os 


We beginnen de groep te bespreken die het meest intrigerend is namelijk de 
laatste waarin schijnbaar geen argument aanwezig is. Het argument is er wel 
maar wordt gegeven door de machine zelf. Bij CURX en CURY is vanzelfsprekend 
de positie van de cursor het argument. Voor alle zekerheid herhalen we nog 
even CURX geeft de horizontale positie van de cursor links beginnend bij @ 

en met 1 oplopend naar rechts tot maximaal 66, Ha, ha hoor ik een aantal al 
grinniken} er gaan maar 40 tekens op een regel en als we bij © beginnen is de 


het volgende programma zal laten zien komt de CURX wel degelijk op 60. Op deze 
positie kunnen we echter met PRINT niet meer lets neerzetten. 


1e REM CURX-TEBT / F.H. DRUIJFF ~ 19850416 
20 CURSOR I,X:PRINT "unt: CaCURX 

36 ` CURSOR 10,7:PRINT 1,C 

40 Ія1+1 

50 HeGETC: IF H=0 GOTO 50:80Т0 20 


Ook over CURY valt nog wel iets te zeggen. U tikt in PRINT CHR#(12)5 en komt 
aldus met de cursor linksboven te staan. Maakt het nu jets uit of U nu intikt 
PRINT CURY of ASCURY:PRINT A ? Probeert U het zelf maar als U het antwoord 
wilt weten. Beseft U zich trouwens ook dat de CURY boven aan het scherm 23 is 
en onderaan © ? Maar dat U bij intikken van PRINT CURY zowel bij de onderste 
regel als de een na onderste regel het antwoord 6 krijgt 7 De verklaring is 
simpel: het intikken besluiten we met een [RETURN] en komen daarmee op de vol- 
gende regel terecht, daar komt dan de prompt of eventueel het resultaat van de 
gegeven opdracht. Bij de opdracht PRINT CURY op regel 1 zal dus eerst naar 
regel © gegaan worden om daar weer te geven dat de СОВУ nu @ is, wordt de op- 
dracht gegeven op regel 9 wordt eerst het scherm een regel omhoog gescrolled, 
dan naar de nu nieuw ontstane regel 6 gegaan om dan weer vast te stellen dat 
CURY 9 is. Dit laatste is alleen maar een doordenkertje maar het eerste is wel 
degelijk iets om te onthouden. Het betekent dus dat we zeer beslist niet aan 
de DAI kunnen opdragen : CURSOR CURX,CURY-2:PRINT "#" ‚doen we dit toch kunnen 
we OFF SCREEN krijgen. 


Bok de XMAX en YMAX lijken zulke onschuldige 'functies'. In de eerste plaats 
valt er mee te delen dat zij het beeldscherm of nauwkeuriger de mode waarn het 
scherm staat als argument meekrijgen. In werkelijkheid gaat het in wen iets 
andere volgorde maar dat maakt voor de theorie der functies niet uit, Bij het 
initialiseren van de mode worden de pointers op #94 en #95 gevuld met de cor- 
recte waarde van het aantal horizontale punten en NIET de XMAX die 1 kleiner 
is en wordt $96 gevuld met het santal horizontale lijnen dus het aantal verti- 
kale punten ofwel YMAX*1. Vragen wij naar XMAX wordt alleen gekeken naar de 
waarden van de adressen #94 en #95. Door de juiste POKE's kunnen wij dus de 
*ХМАХ” veranderen. Onderstaand programma geeft hier een voorbeeld van. 


18 REM VERANDERENDE XMAX / F.H. DRUIJFF — 19850416 
2e MODE 2 

sa Х=29 

40 DOT X,Y 2isX=X+isIF Х<ХМАХ GOTO 40 

59 POKE #94, PEEK (#94) -2: Y=Y+1:GOTO 39 


We kunnen trouwens сок omgekeerd spelen en de XMAX vergroten, maar pas op het 
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aantal punten wordt echt niet groter !!! Maar doe voor de aardigheid eens in 
MODE 2A een POKE 495,5 en vraag dan nog eens naar XMAX, Alles kan weer eenvou- 
dig hersteld worden door een nieuwe MODE X opdracht. 


Vaar GETC is vanzelfsprekend de ingeslagen toets het argument en het resultaat 
de ASCII-waarde die daar bij hoort, De DAI neemt hier nogal een uitzonderings- 
positie in. Alle andere mij bekende machines geven niet de ASCII-code maar een 
karakterstring van een karakter nl die van de ingeslagen toets, De instructie 
voor andere machines is dan vaak INKEYS, Beide methodes bieden voordelen, als 
ik echter moet kiezen, kies ik voor de DAI-aanpak. De INKEY$ is handiger voor 
beginners en de GETC voor gevorderden. Na deze opmerking vind iedereen GETC 
handiger ? Maar laten we een en ander toelichten met een voorbeeld : 


Wachten op indrukken van de spatiebalk 


andere computer DAI 
100  H$-INKEYS 100 H-GETC 
110 IF Hé" " GOTO 100 110 IF HX>32 GOTO 100 
of 
116 IF H4»ASC(" ") GOTO іде 
of 


110 IF CHR#(H)<>" " GOTO 100 


Ondanks de mogelijkheden om zonder te weten dat bij de spatiebalk ASCII-code 
32 hoort vindt ik de getoonde linker methode toch eleganter. Maar nu een ander 
voorbeeld waarbij de DAI juist beter voor de dag komt. 


Testen of er wel een cijfer is ingetoetst, iets anders dan een cijfer wordt 
hierbij domweg niet geaccepteerd, 


andere computer DAI 


100 H$zINKEYS 

110 IF ASC(HS)<48 GOTO 100 

120 IF ASC(H$) #57 GOTO 199 
of 

100 H=ASC CINKEYS) 

еп пи verder als de DAI 


10@ H=GETC 
110 IF H<48 GOTO 190 
120 IF H>57 GOTO 190 


Bij het eerste voorbeeld kunnen we bij de DAI ook zetten 100 H$=CHRS(GETC) 

en dan verder als de linkerkant, Beide laatst genoemde mogelijkheden werken 
wel maar laten duidelijk zien dat de computer niet geeft wat wij verlangen, 
daar we direct beginnen te converteren. 

Tot besluit van deze keer de FRE die bij de MS en MSX computers wel degelijk 
een argument verlangt. Bij DAI geeft hij de vrije ruimte aan tussen ‘end 
basic’ en ‘bottom screen’, Gok hier kunnen we nog even aardig mee spelen door 
bv in een net aangezette machine even POKE #246,0 in te tikken. ?FRE zal U dan 
aangenaam verrassen maar op de duur toch tegenvallen. Een gemis in DAI-basic 
vind ik het ontbreken van een mogelijkheid om te weten hoeveel ruimte er nog 
in de heap beschikbaar is, Volgende keer verder maar eerst iets rechtzetten. 


Erratum : De vorige keer beweerde ik dat er geen tijdsduurverschil is tussen 
FOR. asa NEXT en FOR....NEXT I, Dit is onjuist. Bij al mijn testen had 
ik zelfs de body's apart getest en daar geen verschil ontdekt en zo kwam de 
vergissing. Vrijwel gelijktijdig publiceerde MSX-mozaik een artikel van mij 
waarin juist op dat tijdsverschil werd gewezen. Afijn het gaat zonder de I 
zo'n 25 X sneller. 
Frank Н. Druijff 
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SORT ALGORITHMES 


Fast sort algorithees in DBAGIC. 


Sorting of a string-type array is often needed in a lat 
of application prograas. However aost trivial sort algo- 
rithees run very slog, and a quicksort algorithea is 
hard to prograa in BASIC because it is recursive. 

In DBASIC а recursive quicksort procedure is very easy 
to progran, The following listing shows a short deann- 
stration prograa "ШКАТ 1’ that can create а string- 
type array with random strings and sort it with the 
QUICKSORT procedure. 





BUICKSOAT À 


{0 TE 
PROLE 
i 





WHILE RES DO 
WHILE АК) 69 00 


Raft: 


KEND 
WHILE АНЫ) 208 DE 





i 
4 
М 
і 
3 
1 
i 
à 
H 
3 
2 
H 
1 
2 
1 











149 
(RIAS (8) (A8 S] sc RER ote 
END 1 
17 END 
QULCXSORT N, 9,040 
198 BUILCKSONT 8,15 A41) 
Kn END ІР: 
END PROC 
im CLEAR 10000 | 
1818 INPUT ON "КИ 
ARS U 
an QN BREAK БТ "TESTI: 
FOR i0 TD kK: 
1 FOR Jei ie | 
1 ARAI =ARSCHACHRS (HRD (a11: 
io MT: 
MET 
1836 ON BREAK 8070 "ПРИНТ CHROCH START 
SART": TIREON 
1444 at 
ЙУ MEIDINNYIEPRINT "SORTED IN Si" аз": 
PRINT 
Qus eu 
db IE 
PRINT I 
io JM 
CONTINUE 


The procedure ТЇ Н and the function TIME allow a 
correct tiaing for controlling the sorting speed, As you 
can see in table 1 the quicksort procedure is auch 
faster then SORT (selection sort) or BUBBLESORT when the 
array contains a lot of elements. Another sorting algo- 
rithee doing not so bad is 'SHELLSURT', This procedure 
is based on BUBBLESORT but it uses a variable step for 
comparing array elerents, 














сз. єз sa er mm в 


290 

i 1 

% 1 
2 

ho? 
М 

A 3 

He 4 


E 
En 
E 

A pea Et agn 


bubble 
sort 
shell 
quick 1 


quick 


table 1. 






RAS SHE DES 





SHELLSORT 


PROCEDURE SORT ARR AS 
LOCAL Lii DNE, DHSDMADIM(AS, 1) cL Dt 
DIE LL 00 


FOR 1-8 TO M-L 

IF НЇН МЇ) THEN 

НАА TH ABD SM UH (ET 
WOH 





array dimension 


2% de и н w 


5329 25060 119860 ? 1 
3229 17940 67760 ? ? 
2920 10500 2790 99020 1 
000 — 7280 18900 47000 180520 
2129 6009 1400 32829 98940 


Time іп as for different sorting aethods 
and various array dimensions. 


As you can see in table 1, for large arrays the sorting 
tine of the quicksort procedure (quick 1) will grow auch 
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faster than linear with the array size, This is because 
requests for heap space (string variable assignaentsl 
will take a lot of tine then, 


All the "swapping! of string variables will also waste a 
lot of valuable string space. The following quicksort 
procedure does not have these disadvantages. 





Н 
3 
{ 
3 
j IF Riz THEN 
H SWAPPTR R8: Rz 20828 -21 
i END IF 
UB 2 ШШ 
189 2 QUIEKSORT A 
190 2 — RUICKSORT R, A 
24 1 E. H Së 


END PROC 
1600 IER 10006 
ina INPUT "CHR UC ДИБ "rcp 


1928 D BREAK ATO "TESTI 
FOR 158 TO Ki 
FOR Jet TO bt 
de МЕШ + НЕНИН LHRND (261): 


Kä 
| Er 
1638 Oh BREAK GOTO "DNTiPRINT CHAS (IC; "START 


es 








ШТ" 
1040 ШЕТ VRPT (ORS (O! КОШ 
1050 ТЕГЕП: "SORTED IN °5 13" as: 
10198 B 
50808 
PT 


Li 
ONT INGE 


Instead of swapping the string variables, only the 
pointers to the string variables are swapped. This is 
possible because DBASIC knows special functions to 
handle (string pointers. This quicksort procedure does 
not Haste a single byte of heap space and it runs a lot 
faster for large arrays, A third advantage of this 
procedure ig that the arrays to sort are not ligited to 
1 dimension, À 3 dimensional array AR$(10,10,2) can be 
sorted by : 


RUICKSORT VARPTRIARS (0, 0,0] ) , VARPTR (ARE (10, 10,21] 


the suallest elegant will be in 8$(0,0,0), the next in 
48510,8,1), 08$00,0,22, 88510,1,0), „etc 


Hilly Coresans 





1, IREF extension 


As mentioned by some DBASIC users, there is a bug in the 
IREF extension: The cross reference will abort with a 
"UNDEFNED FUNCTION’ error if arrays are disensioned with 
a variable dimension (i.e, DIM IT, À second bug 1 
detected recently, overwrites nuaeric output when a line 
is splitted (because it is to long). 


Because DBASIC extensions are relocatable, it is not 
possible to ‘patch’ the extension by poking’ in it. To 
solve the problem, you will have to adapt the XREF V2.2 
SPL asseshly Language source on the DBASIC V2.2 cassette 
and recreate the XREF extension, 


The changes to be aade are listed in listing 1. Besides 
changes to the ‘xref? sacro, one tiny changement has to 
be aade in the ’relocw’ sacro (see listing 2}, The 
'relucw macro is а ssall program that automaticaly 
makes the extension relocatable and writes it ina $- 
type file, 1f you ever change one of the other exten- 
sions, please change also the ’relocw’ macro as shown in 
listing 2. 


Ta recreate the extension : 


load the SPL aacra asseabler 

load the DE V2,2 source (R comsand) 

make all the changes (see listing 1 & 2) 

save the new source (WÂREF V2.2) 

assemble the source (A coamand} 

position the DBASIC V2,2 cassette at the ИЙЕР file 
go in utilities (UT conaand) 

run "relocw' (83809 comaand + 3804 is ORG of 'relocw'! 
type space to write the exension file, 


Hote : 


If there is a hardware forafeed on your printer it is 
better to set the printer parameter FF to TRUE (in AREF 
V2.2 change FF SET FALSE in FF SET TRUE), 

The other printer parameters can he adapted if you use 
foras nf different length and/or width, 


2, KEY extension 


The KEY extension soaetimes suspends execution due to а 
forgotten 'di' instruction (disable interrupt], The 
solution is very easy : insert a 'di' at TSTKEY in the 
KEY V2.2 source file as shown belos, 


170 TSTKEY DI 
17 POP Н 
178 ИН. 


Also change the ‘relocw’ sacro (listing 2), The 
generation of the corrected KEY extension is analog ta 
the generation of XREF, 


listing 1 


1% 
ig 
168 
109 
18 


В 
i 


376 
877 
978 
975 
8? 
981 
832 
885 


#22 
WB 


1312 
пз 
1314 
i 
116 
ВП 


ED SET 28194 


URES SET МАН 

LSTREP SET 2848 

ИМ ШТ EU 

Н 

iron call's--—- 

О ARA A ireset definition flag 


jelse keep definition flag 


i 
i-test syabol's definition 
Н 


юй sydflgsdtfh (init ist) def fn 


i def prot 
Н function 
i procedure 
3 label 
Н sjüfigzü іла init! else 
D 
STF CPI TOR 
H PRIN 
ТМ LH H ҮЙДӨН 
WIK are 
DE 
ЦІН TKRSDF 
CAL ИМИ 
A SRD 
IHS 
ЛЕ PH 
m EN] 
$---prücess dig--- 
$ 
PRIN ME S C 


LIN PAR 
JP LSTREP 


ispecial processing arrays 


FARR MIA ШЕН 
DI SYDFLG+ 1A 


ТР LVAR 


force syauol definition 
définition tokens table--- 


print integer rigth justified-— 


entry integer in васс 


j 
i 
j 
i 
Н asnuaber of positions 
i 








1318 PINTR] PUSH PSH 

1319 CALL б ИШ isave dechuf 
1320 CALL Фф ifized point output buf 
1324 POP PS 

1322 LHD  6CO33H iget length of output 
102$ SUB H 

1324 INR A 

1925 PINTR2 DER A jjustifie rigth 
1324 Ж PINTRE 

1327 space — CALL 

1228 Nd PINTR2 

1329 PINTRS MOV A, 

1530 DER A 

1331 INS H 

1332 IN H 

185 DL РИ iprint string 
J $j 

1335 j---retrieve dechbut--- 

Di" 

1337 PUSH D 

{338 LHLD 600379 

1339 UID SVAREA 

1340 Lu D 

1381 HOV HA 

1342 САШ 001728 

1343 POP D 

1344 RET 

1345 $ 

134b у===вауе decbuf--~ 

1347 3 

1348 GVDECR LHD ` OH 

1349 HOV 4,4 

1358 DI ФАН 

1351 RAC 

1392 PUSH 0 

1393 XCHG 

1354 ШТ SVAREA 

1553 HOV HA 

1356 CALL 001728 

1357 POP D 

1358 RET 

1359 5 

1300 SVAREA DB OH, OH, OH, OH, OH, 0H 

1341 18 OH, OH, OH, OH, OH 

ПЫ 5 

138 ENDIF 

1364 HEND 

2 

1446 UID P28 . 
1487 CALL ЕИН ssubstract assemble-offset 
1468 POP H 

ни POP B 

1478 POP D 

И RET 

Wn $ 

1473 QUNBLK DW н 

un REND 

WS $ 


79 


Hire kt ЛААДА" 
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a6 MISSIONS 


AUDIO : 900. BERS 
DCR: 150:BER : 


*PATROUILLER* 





А NEW FASCINATING 
GAME BY P,JANIN 


A 


ыы 

















L'inteface DAI-Joystick présentée dans un précedent numéro 4@ 
sucité une question qui trouve sa réponse ci-dessous. 

Les Joysticks n'ont aucun rapport (Du point de vue de la 
conception autant que de celui de l'utilisation) avec les Classiques 
paddles. Et ce independamment de l'ordinateur utilisé. Aussi il n'est 
pas envisageable de REMPLACER purement et simplement un paddle par un 
joystick. Chacun ayant une fonction différente. 

En conclusion il faut noter que des programmes précedemment 
réalisé pour l'utilisation d'un paddle ne peuvent ‘tourner’ avec un 
joystick, sans y ajouter une modification logiciel. 


Une coquille s'est glissée lors de la composition du texte 
de MEMD-DAI. 

Son prix réel est de 95 FF sur cassette DCR et 70 FF sur 
cassette AUDIO. De plus son auteur nous a récemment fait remarquer 
que cette version ne tourne pas sur les basic V1.0. Il en va de meme 
pour le programme ZLARG. 


only for BASIC v1.1! 


The price of MEMODAI, as announced in a previous issue is not 
right. Price on DCR is 675 Bf , audio is 500 Bf. 


BAD "DCR" NEWS 
The tremendous rice of the price of DCR-cassettes forces us to 


apply new prices for DCR-versions. From now on, extra price for 
DCR will be 250 Bf. 


GESTRUCTUREERD PROGRAMMEREN DEEL II 
Het lang verwachte deel II van de handleiding door Bruno 
Van Rompaey is nu beschikbaar. Prijs : 1100 Bf. 


SOON AVAILABLE : 


TOOLKIT 7 containing : Variable precision, Graphics scroll, Zoom, 
MSX-extensions ... 


JOB PLANNING : a program, creating your critical path of jobs 
that need to be done. 


GAMES COLLECTION 15 : Zeeslag, Cubit and others 


The SPL macroassembler documentation is now available in English. 
J.P. Berckmans and L.Huygh did the job . The documentation is 
free with any order (send your old documentation), the price is 
350 Bf if sold seperately. 


Still available in (very) small quantity: 
FIRMWARE MANUAL : 1250 Bf 
SERVICE MANUAL : 1350 Bf 
DAI SCHEMATICS : 850 Bf 


BEST OF DAInamic 80/81 : 500 Bf 
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tel,: 04499 - 3557 Dieteren, 17 maart 1985 
mijn referentie 85/13 108 REM ----------~-- ue en ee 
Onderwerp bijgevoegde subroutine | E " t 118 REM subroutines : ~ inbrengen van een getal/string 
Bijlagen subroutine als alternatief voor het “INPUT"-statement. 128 REN. - vertalen getal in & bytes (ASCII-waarden) 
138 REM. 7 vertalen ASCII-waarden іп getal 
Lë, 148 REM. 7 fortran-notatie (free format) 
158 REM, 7 getal in string 
Als grootste bezwaar van het "INPUT"-statement zie ik de onbeheersbaarheid van 198 REM eee шз nena e سا‎ 
het е Daarnaast ervaar ik als groot bezwaar van het standaard basic Geo Ren 2i februari 1985 : versie 0 
het ontbreken van een mogelijkheid tot formatteren van uitvoer. Daarom zoek M pnoij 
А { brouti E t sie Hiervan is bijgevoegd. 290 REM EE 
ik naar een alternatieve subroutine. Een eerste versi CAE v 488 КЕМ AARDS : geeft karakter (A/I/R) weer van de input 
Ik hoop dat ook andere lezers dit probleem onderkennen en naar alterna ieven 410 БЕМ GOED & FOUT & FR : frequentie click 
zoeken, Mogelijk dat deze subroutine een hulpmiddel daarbij kan zijn danwel | 428 КЕМ CLICK : click uit (8) cq. aan (1) 
een eerste aanzet tot discussie. Voor op- en/of aanmerkingen vindt u bij mij 438 REM DFLT$ : defaultwaarde 
een open oor. 440 REM LENGTE t maximale lengte in te lezen string 
458 REM LENGTH t aantal ingelezen posities 
50080 ~ 50600 inleessubroutine 460 REM TEKEN : positief(@) of negatief (1) 
Я н i i G/R/A) 478 REM EX 1 exponent 
input =: AARD$ aard in te lezen variabele SB КЕМ X Sdt 1 it 
DFLT$ defaultwaarde (wordt gebruikt ingeval SE “ЗЕН NT : ingelesei SEH 
enkel SRETURN) is ingebracht) ` 520 REM X$ : ingelezen string (cq. mantisse) 
LENGTEZ maximale lengte in te lezen string/getal 530 REM Y : mantisse uit 6 bytes 
output : X$ ingeleze string 940 — REM Y$ : getal in 6 bytes 
xx ingelezen mantisse/integer 558 REM Z : mantisse 
X! ingelezen real 568 REM 2$ з getal in fortran-notatie 
click +: CLA @ (aan) of 1 (uit) 590 REN ROSE M bMS EE dui enteren eee Ende 
GOED% frequentie indien ingevoerde correct a pid CHR$(12);"subroutine : inlezen van getallen":COLORT 9 14 9 9:CLEAR 1000 
FOUT? frequentie indien ingevoerde niet correct 1119 Б0Ер=5000:Ғ00Т=500:С.=1: КЕМ Ann init click #44 
overige gebruikte hulpvariabelen: e 1198 - ВЕЙ Saa aa a aa a a a da 
PUNT TEKEN» LENGTHY MZ VX EX% IX 1200 CURSOR 10,21:PRINT "аага"; : АКО "А": ЕТФ" I'3LENGTEs1:608UB 50000 
50090 ~ 50360 selecteren correcte karakters 1218 IF X$<>"A" AND Х%‹›"1” AND X$€?"R" GOTO 1200 
50500 - 59359 correcte inlezing: printen 1300 CURSOR 18,19:DFLT$2"123.456": AARD$zX$ 
50350 ~ 50400 backspce(s) 1318 IF AARD$="A" THEN LENGTE=30 
504880 ~ 505800 inlezen en kontroleren defaultwaarde 1320 IF AARD$="I" THEN LENGTE=9 


1338 IF AARD$="R" THEN LENGTE=10 


$0500 - 507800 RETURN (einde subroutine) 1340 GOSUB 50000 


А 1400 CURSOR 18,17:PRINT "X$ ingelezen string 1 C". X$:1F AARD$="A" GOTO 1800 
30700 - 50800 getal in 6 bytes | 1410 CURSOR 10,16:PRINT "X ingelezen integer + "iX:REM IF AARD$="1" GOTO 1500 
30700 - 50750 getal vertalen in 6 bytes 1420 CURSOR 10,15:PRINT "X! ingelezen real бр! 
input ¢ XX integer/mantisse 1560 GOSUB 54700 
output : Y$ û bytes 1 teken 1518 CURSOR 18,13:PRINT "Y$ getal in 6 bytes +: "sLEFTS(Y$,1);sFOR I=1 TO 4:PRINT ASC(NIDS(YS 
2/5 getal (9 cijfers) y1,1));:NEXTIPRINT ASC(RIGHTS(¥$,1))-128 
: & exponent ! 1520 CURSOR 10,12:PRINT "Y mantisse uit Y$ o "Y 
50750 - 50800 getal berekenen uit û bytes 1530 CURSOR 10,11:PRINT "Y! getal uit Y$ po py! 
eege ci vie Bovine 1600 GOSUB 50800 
ПРЕ, а y i 1510 CURSOR 19,9:PRINT "Z$ getal (fortran) 1 "376 
output : Y en Y! getal berekend Y$ - 1620 CURSOR 18,8:PRINT "2 mantisse : "1 
| 1700 VY=X:Y!=Xi:HULP$=AARDS:CURSOR 10,6:PRINT "hoeveel decimalen ";:AARDS="I":LENGTE=1:GUSUB 5 
50806 ~ 50908 herleiden fortrannotatie (vlgs. free format) i 8888:DEC-Y 
input : X$ integer/mantisse | 1710 X=¥:X!=¥!:AARDS=HULP$;LENGTE=18:80SUB 50980 
Ys exponent (laatste byte) 1720 IF AARDS="I" THEN CURSOR 18,5:PRINT "X integer TU 
output : Z$ fortrannotatie 1730 IF AARD$="R" THEN CURSOR 19,5:PRINT "Y! real юру! 
1748 CURSOR 10,4:PRINT "X$ resultaat + "X$ 


overige gebruikte variabelen: 


13 ҮЛ EXS ЕХ? 1808 CURSOR 18,1:PRINT "nog een sessie (j/n) : Ы 


1818 M=GETC 
1828 IF M=ASC("j") OR M=ASC("J"} GOTO 1089 


50900 - 51000 getal in een string zetten 1830 IF M=ASC("n") OR M=ASC("N") GOTO 1908 
input : AARDS Integer) of R(eal) 1898 6070 1819 
DEC aantal gewenste decimalen (48 mag) 1900 PRINT CHRS(12); 
X integer/mantisse 1998 END 
output : X$ getal in fortrannotatie 50000 X$z"":X«B:PUNT-E:LENBTHsO:TEKEN-D:PRINT " ; #3 


50108 M=GETC:IF М=й GOTO 50108 


overige gebruikte variabelen: " 50110 IF Meis GOTO 50500 


X! EX% HULPS HULPIES 
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50128 
58138 
58148 
58158 
58168 
50170 
59180 
58198 
58298 
50218 
50220 
50230 
50240 
50280 
50298 
50308 
58328 
58338 
50340 
50350 
58368 


FR=FOUT 

IF M=ASC("4+") AND TEKEN=@ GOTO 30320 

IF М=А5С ("~") AND TEKEN=1 GOTO 50320 

IF M=ASC(*+") OR M=ASC("-") THEN IF LENGTH>G THEN Х=М:М=22:5050В 50350: Nei: X=0 
IF MeASC("+") THEN ТЕКЕМ: PRINT X$;:FR=GOED:GOTO 58328 

IF MsASC("-") THEN TEKENSL: PRINT "-"3X$;3FR=GOED: GOTO 50329 

IF Ms8 OR М=22 AND LENGTH=@ GOTO 59329 

IF M=8 OR M=22 THEN FR=GOED:GOSUB 5@350:GOTO 50320 

IF LENGTH=LENGTE GOTO 58328 

IF AARD$="A" THEN FReGOED: GOTO 58308 

IF M=A8C(",") THEN IF PUNT=1 OR AARD$="I" GOTO 50320 

FR=GOED 

IF MeASC(".") THEN PUNT=1:G0TO 58388 

IF M<ASC("@") OR M>46C("9") THEN FR«FOUT:GOTO 50529 

REM --cmsmemmnmenmmmmmemenmemmmmnmemnenmmaemenmmnmmmenmntmnmmmnmme ne 
X$zX$4CHR$ (M): PRINT СНАФ (M) j 5LENGTHSLENGTH*1 

IF CL=i THEN SOUND @ @ 15 8 FREQ(FR):WAIT TIME 2:80UND OFF 

GOTO 50188 

REM eere uere кси айй EE EE oa 
Х=1:1Е M#22 THEN XsLENGTH*TEKEN 

FOR 1=1 TO X:PRINT CHR$(8)::IF Хей THEN LENBTH-LENGTH-1:Y$zRIGHTS (X$, 1) : X$LEFT$ (X$ , LENGTH 


): IF Y$z"," THEN PUNT=@ 


50370 
50380 
50390 
50400 
50410 
50429 
50430 
50440 
50450 
50480 
50490 
50500 
58510 
50520 
50530 
50548 
50550 
50500 
50570 
50598 
50609 
50618 
50620 
50630 


NEXT:IF LENGTH=@ THEN TEKEN=@ 

RETURN 

REM aaa a a 
X$zDFLT$:1F AARD$="A" GOTO 50450 

IF LEFT$(X$,1)z"-" THEN TEKEN=1:XS=RIGHTS (X$, LEN(X$) ~1) 

FOR 1=@ TO LEN(X$) -1: IF MID#(X$,1,1)e"," THEN PUNT=PUNT+1 

NEXT:IF (AARD$="I" AND PUNT=1) OR PUNTOL THEN FREFOUT:X$z"" 

IF AARD$="R" AND PUNTsÜ THEN X$=X$+". 0" 

IF FR=GOED THEN PRINT K$3:LENGTHELEN(X#) 

RETURN 

REM ніні 
FReG0ED:IF LENGTHsÜ THEN GOSUB 50400 

IF CLsi THEN SOUND O A 15 Ø FREQ(FR):WAIT TIME 10:SOUND OFF 

IF FReFOUT GOTO 50100 

IF AARD$="A" THEN RETURN 

IF AARD$="I" THEN X$zX$4",0" 

LENGTH#LENGTH+2:EX=@sFOR Is0 TO LEN(X$)-1 

IF MIDS(X$,1,1) 2." THEN XS=LEFTS(XS, D +RIGHTS(X$,LEN(XS) -I- D':EXSERe I 121-1 
NEXT 

REM we eee rset es ыле EE AGREES EEE demum 

IF LEN(X8)?21 AND RIGHTS(X$,1)="@" THEN X$2LEFTSUXS,LEN(X$) -1) 1GO0TO. 50500 

IF LEN(X$)>£ AND LEFT$(X$,1)z"0" THEN X$sRIGHTS(XS,LEN(XS$) - 1 rEX2EX-1:80T0 50610 
IF LEN(X#)>9 THEN PRINT " truncated to 9 positions"; :X$sLEFTS$ (X$,9) 
XsVAL(XS) IF LEN(X$124. THEN Xx INT(VAL(LEFTS (K$, LEN (CX $2 4) ) 40, 5: Ys INT(VAL (RIGHTS (X$,4)) +0, 


5): =Х#+10900+Ү 


50640 X!'sX*10^ (EX-LEN(X$) ) IEF TEKENZI THEN Х=(-Х):Х!=(-Х!) 

50650 RETURN 

50690 REM ры ы ыы са eean a жанна а кде ннн а аайы раар ры кї эшак E ы рр 

50700 Y$z"*"i:1F TEKEN=1 THEN Y$z"-":Xz(-X) 

50718 Y$2Y$4CHR$(X MOD 256)+CHR$(X/256 MOD 256)+CHR$(X/65536 MOD 256)+CHR$(X/16777216 MOD 256) +С 
HR$(EX4128) 

59739 REM RETURN 

50748. REM. cm e cO э ушла эге жк OUR TE er E ө, ceps me Tm те reyes cmm 

50750 YeASC(MIDS(Y$,1,1)) 488C (MIDS (Y$,2, 1) ) $286 68C (M IDE (Y$, 3, D) ) 65836 8 SC (MIDS (Y$,4,1) ) #167772 
16 

50760 Y'zY*10^(ABC(RIGHT$ (Y$,1)) -128-LEN(X$)) 

50770 IF LEFT$(Y$,1)2"-" THEN Yz(-Y) 1Y!s-(Y!) 

58788 RETURN 

50798 REM decane henan niheni e a ени ае анн MM 

50800 2-VAL(XS) : IF LEN(X$)24 THEN Z=INT(VAL(LEFTS(X8,LEN(X$)-4)) +8, Bir Ys INT(VAL IRIBHTS (X$,40) +8, 


S):1s215100004Y 


58818 
38828 
58838 
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IF LEN(X$)49 THEN X$=X$+"@O"sGOTO 50810 
I$zLEFT$(YS$, 1) &" ," eX$:EXSASC(RIGHTS(Y$, 10) -128*0, St EXS=MIDS(STRE (EX) , IL, LEN(STRSCEX2) -3) 
IF LEN(EX$) «3 THEN EX$E"U" *EXS:1GUTO 50839 


*INPUT* 


50848 IF EX>=@ THEN 2%=1%+"+" 

50850 IF EX<@ THEN Z$=7$+"-";EX=ABS(EX) 

98868 2$-I$*EX$:IF LEFT$(2$,1)z"-" THEN Z=(-Z) 

59688 RETURN 

38898 REM ----------"""-""-"""." "nn Te ee 

$8900 X$z"":IF AARD$="I" THEN X!=X 

50916 IF DECO THEN X'=X!/18:DEC=DEC+1:GOT0 58919 

50920 EX=D:HULP$=STR$S(X!):FOR Iet TO LEN(HULPS) - LE HULPIESzMIDS(HULPS,I,L): IF. HULPIES<>"," THEN X 


$=X$t 
58938 
59948 
59959 
52968 
50978 
59988 
58998 
58999 


HULPIES 

IF HULPIES="," THEN EX=LEN(HULP$)-LEN(X$) -2 
NEXTsHULPS=LEFTS (XS, LEN(XS) -EX) r X$=RIBHT$ (X$, EX) 

IF LEN(X$)<DEC THEN X$=X$+"@":G0TO 50950 

IF LEN(X$)>DEC THEN XS=LEFTS$(X$, DEC) 

IF LEN(HULP$) SLENGTE-DEC-1 THEN HULPS-"":X$z"";FOR 123 TD LENGTESX$2X$4"#"s NEXT 
IF X!«8 THEN HULP$=*~"+HULPS 

X$=SPC (LENGTE-LEN (HULPS$) -LEN (X$) -1) ¢HULPS+", "#X$: RETURN 

ا езеш e‏ س ب e m‏ س سا т-м mmm e‏ س تھ م س س ہے REM eee мм‏ 





IF THEN 


Ik wil U en vooral de lezers wijzen op een fout in de manual 
betreffende het IF-statement. Zoals bekend kan deze statement 
voorkomen in een aantal varianten: 

1. IF [expression] THEN [linenumber] : [statement] 

2. IF [expression] GOTO [linenumber] : [statement] 

3. IF [expression] THEN GOTO [linenumber] : [statement] 

De varianten 1 en 2 zijn equivalent, als [expression] de waarde 
'true' heeft, wordt gesprongen naar [linenumber], zoniet dan 
wordt [statement] uitgevoerd. 

In geval 3 echter, wordt [statement] nooit uitgevoerd, ongeacht 
de waarde van [expression]. Er wordt slechts gesprongen naar 
[linenumber] indien [expression] de waarde 'true' heeft. 

Dit alles geldt voor BASIC V1.1, met V1.0 heb ik geen ervaring. 
In de manual staat echter op blz. 66, 6.2.6.5, example (ii), 
dat bij variant 2 [statement] nooit wordt uitgevoerd. Dit is 


Geachte DAInamic redaktie, 





dus onjuist. 


Hierbij ook een programma om op een andere manier dan met vele 
Sinus en cosinus berekeningen cirkels en ellipsen te tekenen. 
De remarks in de subroutine geven de mogelijkheden aan. Regels 
10 t/m 80 zijn een demo'tje. Een voordeel van deze routine is 
dat de hoogste definitie gebruikt wordt waar het het hardst 
nodig is, namelijk in de lijnstukken met de grootste kromming. 
De routine is daardoor efficienter dan wanneer een konstante 
hoekverdraaiing wordt gebruikt, vooral bij lange ellipsen. 


Voor de machinetaalprogrammeurs een aantal snelle 8080-routines 
overgenomen uit 'Electronics'. 


Marc Boon 
Dirklangendwstr. 2 
NL-2611 JA Delft 
tel. 015-126576 
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CC "^n^OO000OO0O000O00000O0OOO00000000000000000000000000 
EE D "ee CC 
QOOQDOOOODOQOUOOO0O00C OR L C^ O6O0QOOOOO0O00Q0Q00000000000! OOOOOOOO0O000 
POORE о Gg ^^0600O00000000000000000000000000000 
QOO OO0QOO0O00O0000: e ay T ^OÓQOOO0O0O0O000000000000000000QO000 
QOOOQOO0O00O00000000 FR Е Mp C^000000000000000000000000 
QOOOOOOOOQOO00000000000 ORE UA ae S R C^00000000000000000000 
OOOOQOOOOOQOOOOOOO0OOOOOOQ EE g E Er QOOOO0O0O00O0DOOO00QO0O0000 
О вњ И 
OO0O00000000000O0000000000000O0000000000O00vU... CURE OY 200000000000000000000 


Désirant adapter un programme de simulateur de vol aux instruments, 
j'avais besoin de créer une horloge donnant heures, minutes et 
secondes écoulées, cela quel que soit mon temps de réaction aux 
diverses manoeuvres et l'enchaînement de sous-programmes utilisés. 


Ne pratiquant pas l'assembleur, je devais la réaliser en BASIC. 


J'explorais la memory map du n? 11 et étudiais le timer externe 
utilisé par l'instruction WAIT TIME et WAIT MEM, situé aux adresses 
# lBE et # IBF. 


Première constatation : ces deux adresses sont chargées 


à # FF à la mise sous tension. 


#1BF est décrémenté de 1 pour un 


décrement de 256 de #1ВЕ. 


Deuxiéme constatation : 


Troisiéme constatation : il ne faut pas utiliser WAIT dans 
le programme puisqu'il provoque un 


réensemencement de ces adresses. 


La suite est simple. 

D'abord affecter aux variables Н, Met S leurs valeurs de départ 

(ex : Н = 8, M= 35, S = @ donnant une heure de début à 8h 35 mn @ s). 
Puis, dés le démarrage de la partie active du programme, par exemple 


en ligne 100 : 


100 POKE # 1ВЕ, # FF : POKE # 1ВЕ, # FF 


Dans le corps du programme, dès que cela est possible sans géner son 


déroulement et surtout sans excéder un écart de 20 mn entre deux accés, 


lacez 
P XXX — GOSUB 10000 (ou autre adresse) 
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OOO 


20000000 
OOOOOOO0O 


[^ 
po reg 
SE, Se ER MULA CH КЕКЕК SOI 000E 
EE 
NNN р T жу. Eg SE 
SE EC 
- 

10000 T1 =PEEK (#1ВЕ) : T2 = PEEK (# 1BE) 

10010 DTE = (255-T1) x 256 + 255 - T2 

10020 SE = INT (DTE * 2E - 2) 

10030 IF SE 60 THEN DS = SE : DM = Ø : GOTO 10050 

10040 DM = INT (SE/6$) : DS = SE - DM x 60 

10050 M=M+DM: S = § + DS 

10060 IF S)59 THEN'S = 8- 60: M= M+ 1 

10070 IF M>59 THEN M = M- 60: H = H + 1 

10080 IF H>23 THEN Н = @ 

10090 CURSOR 10,10 : PRINT H, M, S REM formattez votre impression à votre 

convenance 
10100 POKE # 1BF, # FF : POKE # IBE, 248 
10110 RETURN 


Remarque : en ligne 10100 la valeur à "poker" en # 1ВЕ dépend de la longueur 


du sous-programme commençant en 10000. 


Cette solution n'est sans doute pas optimale mais aidera les 
DAlistes qui ne sont pas versés en language machine. 


: Je rencontre de gros problémes de précision dans l'ádaptation 
d'un programme de calcul d'éphémérides astronomiques (les 6 
chiffres significatifs insuffisants). 


Quelqu'un a-t-il mis au point une routine (méme assembleur) 
permettant de passer à 8 ou 9 chiffres significatifs ? 


Est-ce possible ? 
Contactez-moi. 
J.P. CHEREAU 


11, avenue Saint-Exüpéry 
92160 ANTONY 
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e, 
2 
А 
THE 'SAVE' , BASIC COMMAND d 
HEAP l------------------ I stored in 29B/29C 
I I 
I VARIABLES (HEAP) I 
I GE 
TXT BGN 1------------------ I stored in 29F/2A0 
I I 
I I 
T I 
I TEXT BUFFER І 
І І 
І І 
T I 
TXT USE 1------------------ I stored іп 2A1/2A2 
STB BGN I T 
I SYMBOL TABLE I 
I I 
STB USE I---------2-----222.2- I stored in 2A3/2A4 


The variables that the program needs are stored in the 
restricted area whose address is stored in 29B/29C and the 
size in 29D/29E. 


A 'SAVE' in BASIC : 1. initialise the HEAP and the 
SYMBOL TABLE. 

2. saves the TEXT BUFFER. 

3. saves the SYMBOL TABLE. 


A 'LOAD' in BASIC : 1. initialise the HEAP and the 
SYMBOL TABLE. 

2. loads the TEXT BUFFER and stores the 
corresponding addresses in 29F/2A0 
and 2A1/2A2. 

3. loads the SYMBOL TABLE and stores 
the corresponding addresses in 
2A3/2A4. 


At the beginning,the HEAP pointer (29B/29C) is initiali- 
sed at 2EC and the size is 100 (TEXTBUFFER: 2EC«100-3EC). 


So,we have to save,if the BASIC program is alone,the 
TEXTBUFFER,the symbol table and store their addresses in 
29F-2A4, 

Hence,it's easier to save the program from 29F to STB USE 


*LOAD loading of the file 
жрт 

GD2A3 2A4 

САА BB 

cW29F BBAA name of the program 


The BASIC program is then saved under his LM form. 





SAVING OF А BASIC PROGRAM + 


It becomes attractive to put together а BASIC program, 
which we can save under a LM form,with a LM program to load 
the entirety under a LM form.(f.i. ЕСТ (300-900) + BASIC 
program). 

The RAM organisation becomes : 





2EC ї---------------- Г 
І І 
I LM PROGRAM I LM PROGRAM 
d I [ 
HEAP I-.--------------- I 
I VARIABLE HEAP 1 VARIABLES 
I---------------- E 
T I 
I I 
I TEXT BUFFER 1 
I I 
TXT USE I I BASIC PROGRAM 
STB BGN I---------------- I у 
I I 
I SYMBOL TABLE I 
I I 
STB USE I---------------- ї 


This time,we have to save the variables 29B to 2A4,be- 
cause they point to the addresses where the different parts 
are stored.The BASIC program is not апу more stored bet- 
ween 2ЕС and STB USE but between 2EC + LM program size + 
HEAP and STB USE size. 
2bEC being the initial RAM value (after RESET). 

** Don't forget to readjust the pointers 29F-2A4 while 
loading the MLP and the BASIC. 


Ist method: use a BOOTSTRAP LOADER (DBL). 
---------- You just have to depress the BREAK key when the 
loading of the BASIC program is started. 


2nd method: readjust the pointers. 

---------- Let's take the example FGT (300-900). 
(notice that ЕСТ takes place from 29B to 900,what updates 
the pointers 29F to 2A4 during the loading). 


so : KOT 
--- cR loading of the MLP 
¢S29B 
С̧ЕС-01 
с02-09 start of the HEAP -с after the LM pro- 
gram (=901). 
c00- 
g01- 
gEC-01 
€03-0A start of the TEXT BUFFER that's to say 
start of the HEAP+100=901+100=A01. 
cB 
*LOAD loading of the BASIC 


*BASIC & ML SAVE* 
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** You have stored,in the RAM,the MLP+BASIC under the form 
above described.Now,you have to save the program from 
29B to STB USE. 

STB USE has the addresses 2A3/2A4. 


SO 1 *UT 
Goen çD2A3 2A4 
СХХ YY 
cB 
* (make the cassette ready) 
хут 
c29B YYXX 
cB 
* 


You have now a BASIC«LM program,saved under a LM form. 
To come out: xUT 

CR 

cB 

*RUN 


AUTOSTART OF A BASIC AND LM PROGRAM 


With a READ or a LOAD,when the command is performed,a 
CALL 2D4 is executed to close the file and stop the motor. 
2D4 is used to go back to D445 (audio recorder) or to F31F 
(DCR).(JMP D445 or JMP F31F). 


AUTOSTART IN MACHINE LANGUAGE 


We have to store the machine language from address 2D4. 
If the addresses of the MLP are,f.i.,5000 to 6000,you have 
to save the RAM from 2D4 to 6000,what's not very interes- 
ting,because we don't use the RAM from 2EC to 5000 ! 

Hence,you have to have а file starting around the 300. 
To get the autostart,the start of your MLP must close the 
file,that's to say execute a RCLOSE (Ср 45D5 for the audio 
recorders or CD 1FF3 for the DCR). 


EXAMPLE: MLP from 300 to 1000 
-------- running address: 300 


We can notice that the space between 2EC and 300 is free. 
If it wasn't,we had to write the following little program 
from 1001 to 1006.Load the program and then : 


so,we have in 2EC : 


2EC CALL D445 (or F31F) CD45D4 RCLOSE 
JMP 300 C30003 run in 300 


then change 2D5 : 


çS2D4 or: 
¢45-EC ¢1F-EC 
çD4-02 cF3-02 
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Now,save from hex2D5 to hex1000 


€W2D5 1000 program name 
cB 
* 


Put the cassette back,then UT and R. 


(If your LM program is placed,f.i.,from hex5000 to hex6000,mo- 
ve it from hex300 to hex1300.Your little program,in hex2EC,will 
have to execute a MODE before starting it.) 


AUTOSTART OF A BASIC PROGRAM 


The method is the same,but instead of starting the program 
with a CD,start it with a RUN. 
Example : 
Type in the following BASIC program : 
10 MODE 0 
20 PRINT CHR$(12) 
30 COLORTO 300 
40 PRINT "IT'S WORKING" 


Save it on a cassette (or DCR) and rewind it at the begin- 
ning.Shut the DAI down.(to reset all the variables).We'll 
write our little LM program from hex2EC to hex300. 


çS2EC 3E 00 CD 06 D8 31 00 F9 01 FD 02 CD 1F ЕЗ C3 92 C8 87 


for audio cassettes : 45 D4 


Update the pointers in hex29B : 
çS29B EC-00 02-03 00-00 01-01 EC-00 03-04 
cB 
*NEW 
*LOAD 
*UT 
çD2A3 2A4 
¢43 04 
€S2D5 1F-EC F3-02 

(CAS: 45-EC D4-02) 
€W29B 443 program name 


Shut the DAI down and reload the program. 


Now,if you have a MLP«BASIC program,you have to put both 
together and save them under an LM form.Add the LM program 
if you have room between hex2EC and hex300;otherwise,put this 
program after your LM file (LM+BASIC).Then,you have to 
change the address in hex2D4.It's not any more hex2EC,but the 
address where you've stored your little LM program. 

On the other hand,in the program,there is an address 
(underlined) FD02 (-hex2FD).It corresponds to hex2EC + hexi1 
(points to hex87). 

Don't forget to rectify. 


Henri-Pierre LEGRY 
F-59 DOUAI 


Translated by L.J. 91 
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We don't want here to give you a theoretical account on 
the Assembler Language.The# exist enough good books іп 
bookshops and many magazines who approach the question 
more or less precisely.We wish to propose to our readers 
practical applications,first easy,so that they can practise 
on their DAI and better understand the meaning of the dif- 
ferent instructions and their involvement.So,we hope to 
contribute to turn that over your mind,a way to enrich your 
brain. 

If the utility of some routines,particularly at the 
beginning,is not clear for you,don't forget that they are 
didactic routines who connect themselves gradualy before to 
become real operational routines.But,any clever guy will be 
able to adapt these routines and to insert them in his pro- 
grams. 


Introduction 


A recall is maybe not unnecessary. 

A microprocessor (a 8080A for the DAI) can execute instruc- 
tions only in binary code,what we call "machine code" (re- 
presented by the human being under the form of hexadecimal 
code).As it would be hard and long to program in Machine 
Language (particularly for long programs),programming lan- 
guages have been developped.One of these is the Assembler 
Language,which exists in different developments (DNA,SPL,.) 
Nevertheless,in each of those,each basic instruction is re- 
presented with the same mnemonic (condensed word which re- 
minds the nature of the instruction).Each instruction in 
Assembler is converted in a machine code by the assembling 
program. 

The instruction set of the 8080A has in Machine Language 
244 codes on 256 possible combinations of hexadecimal codes 
Each of these codes forms the code of operation of a machi- 
ne instruction.They are as many machine instructions as dif 
ferent codes of operation.Each instruction of the 8080A has 
one,two or three bytes.The first byte is always the code of 
operation of the instruction.The next possible byte(s) are 
a data byte ог a memory address (8 or 16 bits).Among the 
244 machine instructions,200 have one byte,18 two bytes and 
26 three bytes.Moreover,they correspond to 78 instructions 
in Assembler,composed of a different mnemonic for each ins- 
truction and,contingently,of an operand with опе ог two 
elements. 


ù = hex Ç= > 


*ASSEMBLER BY PRACTICE* 


It's good to remember that the 8080A has 6 main registers 
of one byte B,C,D,E,H and L.These can be grouped by pairs 
(B+C,D+E,H+L) where the first term (B,D or H) indicates the 
pair and contains the most significant byte,the second re- 
gister containing the least significant byte.The accumula- 
tor A (one byte),through which pass the arithmetic and lo- 
gical operations,and the memory location M (two bytes),who- 
ве address 15 pointed by the register pair H+L,are also 
considered as registers.We have also a stack pointer SP and 
a counter for the developping of the program PC (Program 
Counter),each with two bytes. 

There 1з still a special register with one byte whose 5 
bits only are used :they are the status or condition indica 
tors (Flags),with a flip-flop type.They are called,in de- 
creasing order of the used bits : the sign S,the zero 7, 
the auxiliary carry AC,the parity P and the carry C.The 3 
unused bits of the byte are the sixth,the fourth (always 0) 
and the second one (always 1).Let's note that the accumula- 
tor A and the flags register can form a pair called PSW 
(Program Status Word),in which the accumulator is the MSB 
(most significant byte). 


Application No 1 


Purpose : clear memory from a start address in memory. 


300 SUB A Clear the accumulator,by cut- 
ting off the contents of A 
from the accumulator. 

NOP Has no effect;allows to reser- 
ve a memory location to inter- 
calate an instruction without 
disturbing the general diagram 
of the routine. 

LXI H,:30B Loads the memory start address 
in H+L (GOB in L and û03 in H). 


! 

H 

301 ! 
! 

! 

1 

H 

H 

! 

77 1 MOV M,A - Moves the contents of А in M 

I 

H 

! 

1 

1 

1 

1 

! 

H 

f 


00 


302 21 0B 03 

305 
(whose address is in H+L). 

INX H Increments the contents of H+L 
by one (gives the next memory 
location address). 

JMP :305 Unconditional jump to memory 
address à305 to execute the 
next move from A to M. 

RET Allows to go out from the rou- 
tine;same as the RETURN ins- 
truction in Basic. 


306 23 


en t om em om om om aes эш om эш be e 


307 C3 05 03 


30A c9 
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COMMENTS 


The execution of the routine is made in UTILITY (type UT 
in Basic),then ¢G300 (with 923 before or not).The memory lo 
cations are cleared from ù30B (the screen is also cleared), 
but the DAI loops:it's normal,because nothing stops the 
execution of the routine.Press RESET,then *UT and display 
the contents of the memory from à30A to ùB34F (page by pa- 
ge) by means of DISPLAY,to verify the resetting of the me- 
mory.Let's note that the memory locations U3EA апа  ü3EB 
contain respectively à7F and üFF,because of the RESET. 

You can also type 923 (necessary here) followed by ¢L300 
300 30A,what will allow you to look at the successive sta- 
tes of the different registers at the end of the execution 
of each instruction.In this case,the executuion time is уе- 
ry long,but you can stop the run of the program at any time 
by pressing the BREAK key,and then look how far is the re- 
setting of the memories,with DISPLAY. 

Let's note that we can't misuse the NOP (00) instruction 
because,though this one is inoperative,she uses four clock- 
cycles. 


EXPERIMENTS 


(1) Under line 300,you can replace SUB A (97) by XRA A 
(AF),which gives the same result : exclusive OR between 
the contents of A and the accumulator. 

(2) You can also replace in lines 300 & 301 SUB A and 
МОР (00) by MVI A,:0 (ЗЕ 00),where the data 0 (one byte) 
is loaded into the accumulator.Of course,the 00 (machine 
code for the NOP instruction) can be used for the instruc- 
tion МУТ A (3E).Though this last solution 15 more obvious 
than the two others,it has the disadvantage to occupy two 
bytes instead of one and to have 7 machine cycles against 4 
for the two other solutions. 

N.B.:The indicators! status are different following the 
resetting type of A.With SUB A,we get F (Flag)=u56,with 
ХКА A,F-ü46 and with MVI A,:0,F-002. 


Application No 2 


Purpose : Load data in two registers and look at their 
------- contents. 


DIDACTIC LISTING 


300 1 21 00 13 ! LXI H,:1300 Loads the memory address іп HL 

303 ! 01 01 0A ! LXI B,:A01 Loads the data üAO1 (two bytes 
d ! in B+C (ù01 in C and OA in B). 

306 ! 70 ! MOV M,B Moves the contents of B into 
! ! M (here at the address 01300). 

307 1 23 1 INX Н Increments the contents of H«L 
| i by one. 

308 ! 71 ! MOV M,C Moves the contents of C into M 
! ! (here at the address 01301). 

309 ! 00 ! NOP No operation. 

30A ! C9 ! RET Output of the routine. 
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COMMENTS 


In UT,type ¢G300,then display the data with ¢D1300 1301, 
which gives you ОА 01.0therwise,type ¢Z3 + GL300 300 30A 
and then ¢D1300 1301 to look at their contents. 


EXPERIMENTS 


(1) By replacing,under line 30A,the instruction RET (C9) 
with HLT (76),who stops the program,you will loose controll 
on the DAI.So,never try HLT,otherwise be very carefull ! 

(2) Under line 309,if you replace МОР by PUSH B (C5),you 
load the contents of B+C on the stack of the DAI,that's to 
say that you save the data on the stack.With ¢G300 you have 
nó problem and ¢D1300 1301 will display OA 01. 

But if you type €23 + 1300 300 30A,the DAI will be lost 
after the LOOK command.If you type BREAK (at time,but not 
too early),you can see that the value of P(next instruc- 
tion 's address to be executed) who stands at the address 
of the last executed instruction (I-à30A),contents the data 
80A01.Now,we had to see the value üEA04,who gives the re- 
turn address of the ROM and who stands now at the bottom of 
the stack (üF8FE & üF8FF),whose address is given by S-üF8FE 


Application No 3 


Purpose : Load on the stack the contents of two regis- 
------- ters for examination. 


DIDACTIC LISTING 


300 ! 31 02 13 ! LXI SP,:1302 Loads the start address of 
! ! the stack and modifies the 
t ! stack pointer.Uses a stack in 
1 1 RAM instead of the initial 
! 1 stack of the DAI.Can be use- 
i i full in specific applicatioms 
303 ! 01 01 OA ! LXI B,:A01 Loads the data ùA01 in B+C. 
306 ! 00 1 NOP No operation.Used as spare 
307 ! 00 ! NOP for easy  insertions. 
308 ! 00 ! NOP 
309 1 С5 ! PUSH B Saves the contents of В+С in 
l А the stack. 
30A ! 00 і NOP 
30B ! C9 ! RET Allows to go out from the 
1 i routine. 
COMMENTS 


Let's extend the experiment (2) of the previous applica- 
tion and see what happens with another stack.By typing ç23 
* L300 300 30B,we get P-ü0A01 and the DAI is lost without 
BREAK,as with the initial stack. 
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ЕХРЕКТМЕМТ5 


(1) By replacing the three NOP's from line 306 to 308 by 
LXI H,:EA04 (21 04 EA), ?loads the address  üEA04 in H+Lè 
and the NOP of line 30A by PUSH Н (E5) ?loads the contents 
of H+L on the stacké,the DAI is no more lost,even with LOOK 
By using ¢D1300 1301, we get 01 OA (reverse order than in 
application no 2).We can notice here the fundamental impor 
tance of the address üEA04,who has to have a correct place 
in the stack. 

(2) Let's type ¢Z3 + L300 300 30B (and Skip the instruc- 
tion LXI SP,:1302 under line 300,so we take back the initi- 
al stack).To display the data,we have to do GDF8FC F8FD. 
We will find 01 0A (the address üF8FC is given by S in the 
last line of LOOK,that's to say the one concerning І=030В). 


Translated by L.J. 








MLP PROGRAMME — SEARCH ROM OR RAM FOR A GIVEN ADDRESS 


This programme will search the DAI"s memory for references to an 
address that you specify. When the address of a DAI routine is 
typed in, the programme will find and display all references to 
that routine. During a ROM search sections C, D and all four E 
banks are examined. For a RAM search it is necessary to input, when 
asked, the start and end addresses of the MLP or the part of RAM to 
be examined. Hex addresses are expected and should be entered in 
alphanumeric characters without 4 or H. eg the GETC routine is at 
address 4D6BE: type it in as DBE. 
RST * Data calls can also be found, 
byte, High byte order of addresses, 
when enterings eg 
OFET. 

The only error 
Utility. 


but as they are not in the Low 
the two bytes must be reversed 
RST 4 Data ӨР is E7OF but must be typed in as 


report is the ? as used for errors in the Dâl's 


Bill Read 
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eoocno 
22906 
овое 
aad 
BORO 
ооо 
acer 
обоо 
оодо 
soos 
2520 
0545 
8388 
2389 
озода 
озос 
KR 
9311 
6314 
9517 
әзіа 
0951р 
ОЗАР 
6322 
9322 
0324 
@327 
932A 
932C 
O32F 
9552 
0555 
e336 
e337 
@33A 
озар 

SSF 
6342 
0343 
29346 
9349 
@36C 
937F 
0581 
e3gE 
@S9F 
@SBC 
@3BE 
e3BF 
DEES 
@SE4 
e3ES 
29412 
413 
9441 
9442 
G445 





ооб 


ig-D6BE 
DD 
S=DAD4 
@=DE14 
@=EADE 


C36004 
осерер 
202020 
20544F 
aDen 
202020 
an 
202020 
ерөө 
ер 
202020 
ae 

2D 
202020 
aD 
285479 
оз 

ер 
202020 


TITL 





"SEARCH ROM OR RAM FOR A GIVEN ADDRESS" 
Bill Read Mov 1984 


DAI routines called: 


GETC 
GUTE 
PMSG 
COMPDE 
GETADR 


з 
5 
START 


KEYBD1 


5 RAM 


ROM 


ASKADR 


STARTS 


STRT2S& 


RAMS 


RUNS 


EQU 
EQU 
EQU 
EQU 
EQU 


ORG 
LXI H 


*SEARCH ROUTINE* 


oOD6HEH sGet char from keybd 

oDD690H sPrint character 

oODADAH Print message 

@DE14H sCompare DE & HL 

@EADEH s(SEADE)Get address from 
$ keybd and put on stack. 

зеен 

STARTS sDisplay title and 


PMSG s ask ROM or RAM 


GETC sGet reply 
sAbort if BREAK 
зїн $Кеу і 7 
ROM 
32H skey 2 ? 
RAM 
KEYBD1 sIf any other key 
RAMS 3Ask addresses of 
PMSG з area of search. 
2H #2 addresses wanted 
GETADR Addresses from 
з keybd on to stack 
одон Marker for RAM 
BANK 
ASKADR 
20H $Marker for 
BANK з unswitched ROM 
@C@OGH sStart of ROM 
@DFFFH sEnd of unswitched ROM 
Save both addresses 
ї on stack. 
STRT2ZS Ask address to 
PMSG 3 be sought. 
iH si address wanted 
GETADR sGet address from 
5 keybd to BC 
BEGINi 
BCH, @DH, ADH 


^ SEARCH ROM OR RAM FOR REFERENCES" 
* TO & GIVEN ADDRESS" 


@DH, DH 

* Кеу 1 To search НОМ” 

@DH 

f Key 2 To search RAM? 

@DH, eH 

орн 

Hi What address is to be sought 7 7 
ен 

орн 

2 What area of the RAM is to be searched 7?" 
@DH 


"(Type start address SPACE end address RETURN) 
oH 
@DH 


Search in progress 
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EE 


SEARCH ROM OR RAM FOR A GIVEN ADDRESS 


DE SH 
RET 





Address to be sought in BC 
End address of search area on top of stack 
Start address of search area top-1 of stack 


LXI H RUNS 

CALL PMSG 

POP D End of search area 
POP H sStart of search area 
INK H 

CALL COMPDE sEnd reached? 

JZ FINIS1 $ Yes 

MOV A,M 

CMP C Мо byte wanted addr? 
dNZ 501 5 No 

INX H sYes. Get Hi byte 

MOV А, М 

СМР B sHi byte wanted addr? 
DCX H 

JNZ 501 Мо 

PUSH B sYes. Save the wanted 
PUSH H 3 address and the place 
MVI A ADH 3 where it was found. 
CALL OUTC SOutput CarRet and 
LDA BANK $ print space or 2 bank 
CALL DUT 3 number, then the 
CALL PRTADR 3 location found. 

POP H 

POP B 

Oui 501 


3 
sConvert address in HL to ASCII and print it: 


SPL V1.1 PAGE 2 
BASE eo 

GASF C9 

e46e 5 
одде sEntry: 
8460 ; 
e46o E] 
$9460 214204 BEGINI 
9463  CDDADA 
8466 рі 

0467 Ei 

e468 2% 501 
$467  CDIADE 
€e46c CAAE@4 
946F FE 

2470 B9 

2471  C26804 
0474 25 CHECK 
9475 7E 

$9476 Ba 

0477 2H 

0478  C26804 
@47B CS 

e470 ES 

0470  3EeD 

@47F  CDé@DD 
@482  3aeses 
6485 CD6eDD 
eagg  cpsyoo4 
Oo4uB Ei 

e4gBc Cl 

BAD  CSoge4 
e490 5 
o490 

8490 7C PRTADR 
9491 CDI504 
e494 7D 

8495 FS PAL 
6496 07 

2477 07 

64978 or 

0499 07 

498  CD9EO4 
949D Fi 

O49E  E6OF РА2 
04606 CDAGE4 
BAAS  C360DD 
о4лЫ Сёз РАЗ 
0448 FEZA 

e45n Da 

GAAB Сабу 

@4AD C9 

e4nt Н 
e64nE SA@5SOS FINISI 
o4ni FESO 

BARS CACHO4 
0486 FESO 

64889  CAE104 
O€4BB FEZI 
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MOV A,H sist byte to A 
CALL PAL H 

MOV а, s2nd byte to A 
PUSH PSW 5Save HEX 

RLC sMove high nibble 
RLC з to low 

RLC 

RLC 

CALL PAZ 

POP PSW 

ANT @FH sUse only low nibble 
CALL PAS sMake it ASCII 

JMP DUTC sPrint it 

ADI хен Shake ASCII 

СРІ SAH So to 9 7 

RC 3 Yes 

ADT 7H ifor letters А to F 
RET 

LDA BANK FROM Bank flag 

CPI зен SC and D done 7 

JZ ENKES $Yes.Start E bank © 
CPI зен 3 ӨЕ bank done 7 

JZ BNKE1 

CPI зїн 5 iE bank done > 


*SEARCH ROUTINE* 





SPL Vi.i PAGE 3 
94BD CHEGA 

SACS FEBS 

DACH CAFIG4 

@4C5 30605 

e4ca 5 Bank 
e408 H 
#408 Н 
засв 3 
9408 26549600 BNEEO 
@4CH E&EF 

@4CD 324000 

@4D@ ern 

e4D3  SESO 

0405 320505 AGAIN 
@4D8  11FFEF 

94DB 2100ЕФ 

GADE  C36804 

$94E1 CDF9@4 BNKEL 
@4E4 ЗЕЗ1 

D4E8 C3D564 

O4E9  CDF9O4 ENKEZ 
QAEC SES? 

Q4EE  C3D504 

@4Fi CDFS64 BNKES 
@4F4  3ESS 

G4F6  C3D5e64 

G4F7 3040600 BNKSMW 
Фағс Садә 

o4FE 324000 

6591 S3206FD 

9594 C9 

6595 oo BANK 
9566 ES FINISZ 
9507  212Co05 

обеда CDD4DA 

SGD Ei 

@S8E CDREDS KEYBD? 
9511 рв 

9512 FES2 

8514  CAo6003 

$9517  FE41 

9519  C20te5 

951Сс 740585 

®S1F FEAG 

@521 CAI7@3 

2524 FESS 

@526 CAZA@S 

9529 C3909003 

GS2C 202020 ENDS 
2540 ер 

0541 202020 

454E Өр 

eS6Fr 202020 

9597 ер 

2598 2902020 

aSCe ороо 

@5C2 


SEARCH 


dz 
CPI 
47 
JMP 


switching. 
purpose 


or one 
prefix 
LDA 
АМТ 
STA 
STA 
MVI A 
STA 
LXI D 
LXI H 
JMP 
CALL 
MVI A 
JMP 
CALL 
MVI A 
JMP 
CALL 
MVI A 
JMP 
LDA 
ADI 
STA 


*SEARCH ROUTINI 


ROM OR RAM FOR A GIVEN ADDRESS 


ENKEZ 

32 s ZE bank done 

BNKES sStart E bank 3 
FINISZ SRAM, or all ROM done 


The data byte stored in BANK has a dual 
1 it is a marker to indicate when the RAM 
of the ROM sets is in use, and it is the 

printed with each address found in search. 


40H РОКОМ 
ЗЕН sFar Bank © 
40H 
2FDOGH $ FORO 
SGH Marker for E bank o 
BANK + and save it 
OEFFFH Reload HL and DE with 
OE OOO0H 5 Ebank start & finish 
601 sSearch next bank. 
BNESW 
SiH sMarker for E bank 1 
AGAIN 
BNESW * 
32H sMarker for E bank 2 
AGAIN 
BNE SW 
SSH Marker for E bank 3 
AGAIN 
40H 5Bank switching routine 
40H š Increment bits 6,7 to 
40H s move to the next bank. 
GE Don 
eH sFlag for E bank or ROM 
ENDS 
PMSG 
GETC 

šTo UTility if BREAK 
* Re 
START sRestart 
эд? 
KEYBD2 sIf any other key 
BANK sWhere was the search 
олон SRAM 7 
RAM 5 Yes. 
33H KROM 7 
ROM 3 Yes. 
START 
С Search completed. ° 
@DH 
Е Fress А to search for another address. 
enH 
z Press R to restart the programme.” 
@DH 
* Press BREAK to end the programme.” 
SDH, @H 


DAInamic 85 - 27 99 


td 
* 










2.44 
: DAZ"NO 





viden inverse subroutine. 
will concern the mat calcul 
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F.LEMBINE 
à First publications BAICLIC/1 February 1985 
They are Translation and adaptation for DAInamic March 1985. 


































1) А901 4—40... 
PAGE i IE, D 
2 AO MER EAN EER AC E 
5 1 ОТМЕ RUE DU COLLEGE 34 6071 CHATELET 
after CO ABC & x DAI 
8 [122291 
û E Û 10 р" 
iz "TRAF 
15 
WINDOW nm defines een-window from the line n up to the line m. 
nsi of the scree 20 
m = 24 top af the screen i 
2) MISCELLAMEDUS 30 
MARR KERR RK EK 1 
FRTON delivers the printer 
FRTOFF blacks the printer 1 
Ё 


КЕРТ within a program which uses GETC, allows autorepeat-keys. 


SWAP A$, DE swaps two strings 





INSTR{I, X$, Y$) is an integer constant, 60 
searches,from the Ith position, the character Y in a string X. If 
по success, then INSTR equals zera. 
e.g. A$z"DOMPU ="M" 
FRINT INSTR $B) gis 1 
PRINT INSTR(4,4%,8%) gives the val 












(яд 









ЕЯ 


STRINGS CI, ХФ) ХФ is an alphanumeric constant i! 
generates I-times the string X$ 





















e.g. PRINT STRING$(4,".") gives .... z 
DEFTP "X", "y" ee 1 
defi s real variables all variables the first character of i 
which begins from X to Y 1 
i 
DFSTR the same but for strings + 
Tac remarks: take care ta keep the alphabetic order between X and Y 
these instructions have same function as the DAI commands IMP 
but can be used in a shar i program which will load the main 
program.It's a simulation of crasoft's DEFINT, DEFSTR i 


e.g. program INIT 10 DFFTP "A", "B" 
DFSTR "C' 





nup 
n 
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Bo L4 de £4 


m 
FA 


UNTIL Dei QR àzLG 
172 END IF 


180 FUNCTION STRINGS (Н, CARS) 
i8z 1 LOCAL CALES: Bei 
REFEAT 
CALOCS=CALCS+CARS: B=B+1 
UNTIL Dau 
188 EM = CALCS: 
END F 
i90 PROCEDURE DFFTP ХФ, Y$: 
RY=ASC OX) YX=ASC (VE) 
192 ] FOR Н=ХҮ ТЇ 
2 POKE (H+ 
1 NEXT: 

END FROC 


m 
E 
m 








o 
Le 
m 

















0 
عم سو زم me‏ 


END PROC 

198 "TRAP 

IF ERR=40 THEN 

PRINT “INCORRECT VALUE", : RESUME 
END IF 


be 
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“SCREEN: 




















CHOPPINET Eric Leuville le 4 mars 1985 


27 rue Louis Pasteur 
31310 LEUVILLE SUR ORGE o 


FRANCE 


Tel: (6) 0684.40.87 


Cher ami DAliste, 


Je vous remercie de l'intérét que vous portez à la carte EXTENSION-BUS 
parue dans DAInamic n° 26. 


Le délai de livraison de la carte nue réalisée en trous métalliseés est 
de 6 semaines après réception de commande. 


Pour i'installation de la carte, il faudra vous armer: 
— d'un multimetre, 
— si possible d'un oscilloscope, 
— d'un grattoir pour couper 3 pistes sur la carte mère du DAI, 
— d'un bon fer à souder (panne très fine !!!), 
— et de fil à wrapper. 


Pour la mise en service de la carte, il est prudent de le faire par étapes 
xxx Souder toutes les petits composants 
(résistances,condensateurs,diodes,transistors.?) 
{connecteur X-BUS, supports circuits intégres.) 
xxx Apporter les modifications suivantes sur la carte mères 
1. Couper la piste arrivant à la pin 47 du X-BUS 
2. Couper les pistes arrivant aux pins 22 et 21 du X-BUS 
et relier ces pistes sans passer par le X-BUS, 
5. Relier 1С44 pin 9 à la pin 47 du X-BUS (FOXX). 
4. Relier 1С45 pin 10 à 1а pin 18 du X-BUS (F9XX). 
S. Relier IC45 pin 11 à la pin 22 du X-bus (FAXX). 
6. Relier IC107 pin 1 à la pin 21 du X-BUS (reset). 


xxx Vérifier les modifications à 1° ohmmétre. 

xxx Mettre votre DAI sous tension sans MEMOCOM. 
xxx Contrôler le + SV sur chaque support de CI. 
XXX Introduire dans le bon sens les CI suivantss 


- CI 5 74COO (CMOS ou HCMOS) 
— CI & 74C42 (CMOS ou HCMOS) 
- CI 3 votre EFROM DCR. 
<<<< COUPER L'ALIMENTATION >>>> 
xxx Passer en UT. Visualiser les adresses  FOOO-F7FF. Le contenu de 
la ROM apparait, si ne n'est pas le cas,vous avez mal adressé 
le décodeur 74042. (SWITCH A — B — Ali ouverts) 
Avec un ascilloscope,vous pouvez visualiser (FOOO-F7FF) 
CI 44 pin 9 (carte mère) 
pin 47 du X-BUS 
CI 6 pin 12 
CI 6 pin 4 
xxx Brancher votre MEMOCOM, et faire CALLM #F2F2. 


Si vous utilisez votre ROM DCR, la compatibilité SOFT est totale. 

A ce stade vous ne pouvez plus commuter vos EPROM à l'aide des minirupteur 

Faites POKE #296,0. Maintenant modifiez la position des SWITCH, visualisez 
les adresses FO00-F7FF. 

Vous pouvez donc changer de banc mémoire mais vous n'avez plus les comman- 
des DCR. 


*X-BUS CARD* DAInamic 85 - 27 103 





104 DAInamic 85 - 27 


Vous pouvez introduire le CI 4. (INS 8154 М) 


Les SWITCH ne servent qu'à l'initialisation du bon banc mémoire lors d’un 
départ à froid, ensuite le 8154 prend les commandes en placant les pins 
du port B en sortie basse impédance. (Par convention, A11 de CI 3 = SV.) 

La ROM DCR a été entièrement réécrite avec des commandes supplémentaires: 

RBP Restore Basic Pointer 
SBF Save Basic Pointer 
IMP initialisation imprimante parallele. 
(^ Жа» H 
A l'initialisation le 8154 prend les commandes. A.B,A11 en basse impédance 


La nouvelle ROM DCR permet toutes les fonctions: 
SLDOK» «LAST» «VER» «CHECK» <LDAD> «SAVE» <CASx> <DCRx > 
11 est possible que dans certains programmes on teste la présence de 
l'eprom DCR par controle d’un byte dans le banc mémoire FOOO-F7FF. 
Ce byte risque à présent d’être different. 


Concernant le programmateur d'eprom, ie tiens à votre disposition le soft 
correspondant pour des eproms 2732 en langage machine que vous lancerez 
par un CALLM #7000 

EX Répondez au menu XX 
L Lecture en #4000 — #4FFF 
V Vérification 
T Test de virginité 
P Programmation avec données en #4000 
F Fin з retour au moniteur 

Attention à la tension de programmation (+ 21 V ou + 25 V). Cette tension 
de programmation doit etre mise au bon moment, (le soft vous previendra) 
et la suprime dés que le programme vous rend la main. Utiliser une ali- 
mentation +30 V; le régulateur LM137 (T1) et le potentiometre (F1) per- 
mettent d'obtenir 21 ou 25V. (Un essai sans EPROM est conseillé.) 


Pour ce qui concerne l'horloge temps réel,le soft est en développement. 
Le CI 9 MM581744 est adressé de FACO à FAFF. Reportez-vous à la notice 
du constructeur. Le QUARTZ est de 32,768 kHz (standard horlogerie). 
L'horloge continue à fonctioner méme en cas de coupure secteur, 
je compte sur vous pour me présenter des applications originales. 


Un mot sur l'utilisation de la RAM de 2K. (6116) 
Pour écrire dans l'espace mémoire FOOO-F7FF, il faut faire un 
POKE #10,#C9 pour éviter un STACK OVERFLOW et prendre garde que 
le SWITCH "Mr soit fermé, ensuite faite POKE #10,0. 
En ouvrant le SWITCH “WR, vous protégez le contenu de la RAM en cas 
de coupure secteur.Cette RAM sert à lancer des programmes que vous 
voulez vérifier avant de les écrire en ROM et non de Stockage des DATA. 
Pour stocker des variables, utilisez la RAM du INS B154N. 


Tous les SOFT se rapportant a cette carte ont été développés 
par mon ami Claude PICARD. 


Vous trouverez dans les prochains numero de DAI 
d'autres renseignements sur cette carte. 


Amicalement. 


Eric CHOPPINET 
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RTTY is de afkorting van "Radio Tele Type" of met andere 
woorden:  Radioverschrijver. De datatransmis bij RTTY 
verkeer geschiedt met diverse codes, waarbij de  Baudot-kode 
wel een van de belangrijk e is. Voor dit soort uitzendingen 





is de beschreven converter dan ook bedoeld. 
Bij RTTY-transmissie worden de enen en de nullen als twee 
verschillende frequenties uitgezonden Cs FSK). Het is de taak 
van de converter om die twee frequenties weer terug te vertalen 
naar de oorspronkelijke logische nivo's. Deze techniek wordt 
algemeen gebruikt door zowel luister-amateurs al gelicencieerde 
zendamateurs, en dit op de korte-golfbanden ( @ MHz ) alsook 
ор de VHF-banden ( 144 MHZ ), 
De opzet van een RTTY-ontvangst en~ of  zendketen Кап er als 
volgt uitzien (Fig.l) : korte-golf  zend-ontvangern, converter, 
en  telex-machine. Wie geen telex  heeft,maar wel een computer 
met scherm, |! het RTTY-signaal daarmee zichtbaar maken, op 
de manier zoa in figuur 2 is aangegeven. 
Achter de converter is dan een 5 bits serie-naar-@ bite 
parallel converter geschakeld (UARTI), waarna onze DAI de 
Baudot-naar-ASCII omzetting doet, en daarna de informatie op het 
scherm i » Dit gebeurt natuurlijk met een computerprogrammas 
waarbij m moet letten op de volgende punters 

- serieel ingangssignaal, bestaande uit: 
j databits, 1 startbit, 1 stopbit 

~ transmissiesneld instelbaar ap: 

45 baud, S baud, 75 baud, 11% baud 

Met de intrede van de computer is ginds kort in sammi се 
landen ook  ASCII-transmissie toegelaten, ook wel gbruikt om 
satellieten van de nodige besturings-programma’s te voorzien. 
Voor amateur-gebruik is een veel gebruikte vorm van ASCII з 
7 bits,1 stopbit, 114 baud, 
In fig.3 is het blokschema van de converter te zien. 
De ingang van de converter wordt verbonden met de luidspreker- 
uitgang van de korte-golf onvanger, De beide tonen voor "mark" 
en "space" (een en nul) worden eerst versterkt, daarna begrensd 
en dan naar twee band-filters gevoerd, het mark еп het space 
filter.De uitgangssignalen van de filters worden gelijkgericht en 
dan opgeteld door een som-versterker, die tevens als begrenzer 
werkt. Зап de uitgang van de schakeling is het dedekodeerde RTTY- 
signaal beschikbaar,dat in deze vorm direkt een telex kan sturen. 
Het mark-filter is vast ingesteld op een frequentie van 1275 Hz. 
of naar uze op 2129 Hz, naargelang de oude of nieuwe normen. 
Het  space-filter kan ingesteld worden op 1445, 1520, 1700, 2125, 
of tussenliggende frequenties. Afhankelijk van van de instelling 
van het  space-filter bedraagt het frequentie-verschil (shift) 
tussen mark en space dan 179, 255, 425 of 8590 Hz. 
Voor een goede ontvangst van de meeste zenders is meestal een 
frequentie-verschil tussen mark en space van 425 Hz nodig. 
In het schema is het  mark-filter opgebouwd rond AS. Met PS wordt 
de midden-frequentie ingesteld op 1275 Hz of op 2125 Hz. 
(1275 Hz op ingang zetten en op max. uitgangs-spanning van AZ 
afregelen ). 














5 
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Het space-filter is opgebouwd rond A2. Met behulp van de draai- 
schakelaar kan men de band- frequentie omschakelen, 
De trim-potmeters worden daarbij ingesteld op max, uitgangs- 
spanning van A2 bij respektievelijk 1445, 1530, 1788 en 2125 Hz. 
De uitgangen van AZ en AS kan men aansluiten op de X- en Y-ingang 
van eem  oscilloskoop. De converter is optimaal ingesteld als op 
het scherm van de skoop een ellips-kruis zichtbaar is (Fig. 4), 
Mat de dubbele schakelaar Sla-b kan men omschakelen tussen 
"normale" ontvangst en "inverse" ontvangst-mode. 
Het schema van de FKS-modem is van belang voor de zend-amateurs, 
en is een gekende beproefde schakeling. De beide opgewekte tonen 
worden afgeregld met de Lët trimmers en mogen maximaal 5 herts 
afwijken van de toegelaten frequenties, De uitgang FSk-out wordt 
aangesloten op de microfoon- ingang van de zender. 
Het uitgangssignaal wordt beperkt met de 19k trimmer. Men kan 
ook kiezen tussen normaal of inverse werking. 


esr 


De UARTI-interface is een universeel programmeerbare " 

serie naa" parallel omzetter en terug. Door de schakeling 
onder te brengen op een klein opsteek-printie , en doordat 
bij de meesten de rekenchip AMD9S11 ontbreekt, kunnen we 
dankbaar gebruik maken van de lege soket. Geen nood : de 
rekenchip kan eventueel nog. extra op het printje ondergebracht 
worden. 

De UARTI-interface is in de eerste plaats ontwikkeld voor 
het omzetten уап  S-bits BAUDOT + 1 1/2 stopbit,serieel naar 
S-bits ASCII parallel, hetgeen gebruikt wordt bij TELEX-verkeer 
tussen radiostations of telefoonlijnen. 

Er is echter nog heel wat meer mee te doen: als voorbeeld : 
aansturen van gen printer, plotter, voice synthesizer, 2'de 
RS 232 interface, тобет, беен... «п. 

Aangezien de RS 252 interface in de DAI slechts gedeeltelijk 
in snelheid programmeerbaar is, en helemaal NIET in het aantal 
bits, moest deze weg ingeslagen worden, 

De interface wordt actief wanneer deze in een bepaalde MODE 
wordt gezet d.m.v. een controlewoord. Dit woord bepaalt het 
aantal te verwerken bits, het aantal stopbits en de parity-bit. 
Om te kunnen werken warden 2 adressen in het geheugen gebruikt : 
FASS en FADZ, waarin men kan lezen of schrijven hetgeen er zich 
afspeelt in de interface of wat er moet gebeuren, 

Het adres FAxx wordt in de DAI afgetapt en is reeds gedecodeerd 
aanwezig op pin 11 van ic 45 (74LG155),en wordt door DAI niet 
gebruikt, Samen met Al op de math-chip soket kan FADS en FAG? 
gedecodeerd worden. RD en WR zijn voor het lezen of schrijven 
naar de interface. 

De snelheid waarmee gewerkt wordt, wordt bepaald door het geven 
van een sound commande  (v.b,.s SOUNDZ # 15 Ø FREQ(BAUD X 16), 
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De sound generator wordt  aangesloten met een klemmetje op de 
kathode van diode 055 of pin 1/7 van de 8253. 

De in- en uitgang van de interface gaat via een Seaderig (stereo) 
snoer naar buiten de DAI en eindigt in een normale 'stereo' bug 
stekker, 

Het eigenlijke werk wordt gedaan door een UART LSI-ic, afkorting 
van: Universal Asynchronous Receiver/Trangmitter en bestaat 
in vele merken (у. р, BAYS COMSS17, HS 6402) en zijn 
meestal pin-compatibel, en kel-S-volts uitvoering. 

Üm de werking te begrijpen is het nodig de data-sheet van de 
betreffende ic te bestuderen, hetgeen hier te ver zou voeren 
binnenin dit artikel. 

Het is voldoende enkele gegevens te vermelden om het geheel te 
laten werken (zie schema). 

Finnen 5 tot 12 en 26 tot XX zijn verbonden met de  DATA-bus. 
Hierop komt de te verzenden of te ontvangen byte, of ook het 
controlewoord en de status waarin de UART zich bevindt, 
Finnen 17 en A0 krijgen een frequentie aangeboden die 14 maal 
de snelheid is waarmee men wil werken (zie v.b. SOUND boven). 
Fin 16 leest de status via de data-lijnen van de UART. 
Fin 18 leest het te ontvangen karakter уап de data-lijnen. 
Fin 20 is de serie ingang van de te ontvangen data. 

Pin 21 is algemene reset: ligt aan massa. 

Pin 23 verstuurt een karakter op de data-bus naar de UART. 
Pin 29 is de serie uitgang van het te verzenden karakter. 
Fin 34 leest het controlewoord in via de data-bus en zet de 
UART in een bepaalde mode, 


















— M M M — ——— Ó——— MÀ M  ———— He $$ i a i € 


Volgende gegevens kunnen gelezen worden op de data-bus: 

Dé» Transmitter Buffer Emptysis 1 wanneer nieuw karakter mag 
verstuurd worden, 

Di= Parity Erroryis 1 wanneer de ontvangen parity niet overeen 
komt met de ingestelde parity. 

De= Framing Errorgis 1 wanneer het ontvangen karakter geen 
geldig stop-bit heeft. 

Обе Over-Rungis i indien de ontvangst-snelheid niet overeen 
komt met de ingestelde snelheid, 

D4= Data Available;gaat naar 1 indien een ontvangen karakter 
mag gelezen worden van de data-bus, 

Vabas PRINT PEEE(HFADS ТАМО 16) = Print status Data Available 


Het samenstellen van het controlewoornrd: 

Dit bestaat uit een binair getal, geladen via de data-bus, en 
heeft tot doel het hoog of laag maken van een aantal lijnen 
die Че UART in een bepaalde mode brengen: 

D= een 1 geeft een even parity, @ een oneven parity 
Dis Nummer Bits 1: NBE NEL Bits/Karakter 


D2= Nummer Rits 2: g g 9 
D 1 ё 
1 @ 7 
1 1 8 


Die Nummer stopbits; Ge  istopbit 1e Zstopbits of 1 1/2 
D4= No Faritys 1= geen parity de wel parity-bit 
Veba tabel: 
ра ! DS ! DZ ! Di ! Dë 

1! 1! 8! Bt 1 = 419 = S bits,1 1/2 stopbit 

ir gc te 1-1 1 = #17 = B bits,istp-bit,NF 

1! Ø! 1! Ø! 1 = #15 = 7 bits, istp-bit,NP 
Dus: POKESFAUZI,S17 zet de UART in 8 bits, istopbit,No Parity 
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Verdere  gegevens voor het 


versturen en ontvangen van data 


kan men vinden in het programma “TELEX IN BASIC’. 


Een 


voorbeeld van de ‘lay out” 
Gemakkelijkheidshalve is deze print ook 
alleen als komplete unit, en dit 


vindt U in dit nummer. 
verkrijgbaar, doch 


tegen kostprijs van de 


onderdelen (= 1988 Efr,), 


бок 


andere printen voor de ontvangst van RTTY zijn te 


verkrijgen. Gelieve hiervoor nader contact op te nemen met 


mi ju 


BEND DEAR) Se 


1й 
1й@ 
111 
112 
114 
200 
vag 
281 
992 
9d 
924 
9й9 
910 
911 
912 
954 
1ййй 
1й@1 
1@й2 
1984 
1010 
1915 
1920 
1070 
1075 
1080 
1899 
118g 
1195 
1187 
1118 
1115 
1117 
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op nr. 93/77749676,. 


DE DAUW ARMAND 
WALLENHOF 93 
E-2778 NIEUWEERKEN-WAAS 





REM PROGRAM WORKS ONLY WITH UARTI INTERFACE 

REM ¥ xXx TELEX IN BASIC X x x * 
MODE Gi PRINT CHR®(12)sCOLORT 7 9 7 7:GOSUR 1909 
GOTO 940 

WAIT MEM SFAU2,16:D-PEEK (#ЕАй@) 

IF Dz27,0 THEN Рей, ds GOTO S 

IF Dz31.8 THEN Pzi1.9:GOTO 5 

IF GETC=9 THEN 900 

PRINT GHR$(B(P,D)) ::60TO 5 

WAIT MEM #FAG2, 16:PRINT CHR$ (PEEK (ët og ie : IF GETC=@ GOTO 14 
REM Ж RECEIVE BAUDOT x 

ED! #45. 45 eM! 66, W 

GOSUR Sage 

GOTO 5 

REM Ж RECEIVE ASCII x 


PRINT " CONTOL MODE s"u PRINT 

PRINT " RECEIVE BAUDOT «B» SEND BAUDOT <b>" 
PRINT " RECEIVE ASCII SAL SEND ASCII sal" 
PRINT " RECEIVE TOR ST» SEND E-TEST 4X2" 
PRINT " CHANGE SPEED sS SEND A-TEST  Zx»" 


PRINT PRINT ` INPUT "Select --»";X& 

IF X$z"B" THEN iggi 

IF X$="Q" THEN Җ0@@ 

IF X#="S" THEN GÜSUB 2000 

BOTO 100 

REM Ж INITIALYSE x 

PRINT "DATA INLEZEN, suna" 

CLEAR 555 

DIM B(i,@, 34.0) 

Pal, БЕМ ЖО LETTERS X 

SOUND й d 5 Ø FRED(45, 45416, й) 

POKE #FAM2,#19:REM BAUDOT S-BITS 

FOR Xs8.8 TO 31,@:READ A:B(GLE,X)-A:NEXT X 

FOR XsH8.8 TO EL, READ ArE(1,.,X)=A:NEXT X 

FRINT 

RETURN 

DATA B, #33, #, HAD, 820, #27, HIB, #37, HOD, 824, 434, 827, #20 
DATA #21, #EA, #28, HIS, HAE, #29, 832, 823, 836, #30, HEL, #39 
DATA WZF,826,0,42E,42F, WIE, 820 

DATA H,PAD, 820, HAL, #20, HSE, #49, HST, HED, #44, #52, HAA, SAE 
DATA #46, #43, HAB, #54, #50, HAC, 857, HAB, 459 SO. HSL, HAF 
DATA #42, #47, Ø, HAD, #58, #56, 0 
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29998 
281g8 
2011 
2012 
SIX 
2814 
2815 
2816 
2017 
28018 
2019 
29029 
ZO 
28031 
29032 
2035 
2014 


280355 








REM Ж CHANGE SPEED x 
PRINT СНАФ (12) :ЕМУЕ ОРЕ @ 15 
PRINT "TYPE s: WPM : RATE ¢ B STOP r OF/MIN 








PRINT BE a a one vet me nee te me av at ace nn mn ve par as mu an mes at ti ns мин эшн мөм ына e энн эи ман at san эн тыа эмм e 
PRINT " 2 685 : 45 DD: ó - 1 31 msec : 3468" 
PRINT " 66 s: S8 BD з 6,6 s 28 msec 8 20 meet r айй" 
PRINT " 75 3: 57 BD: 7,8 з 18 msec 1 25 msec s: 460" 
PRINT " 447 Log s 75 BD : 1# 1 13,59 msec 1 19 msec : 6g" 
FRINT " XS» s Lig : i 1 D 1 " 
PRINT " <4> : SU a 1 1 D E A 


FRINT 

INPUT "Select speed ZNR2";S!:1F S!26.@ THEN 2026: PRINT 
IF S8!-1.8 THEN BD!=45,45:G0TO 2050 

IF $!22,08 THEN ED!z59,.0:GOTO 2050 

IF S!z3.0 THEN BD'z75.9:85GÜTO 295% 

4.0 THEN BD!-ig8.9:G0TO0 2059 

!s5.8 THEN BD!-110,.0:GO0TO 2459 

IF 81=6.0 THEN BD!z39g,28:GOTO 2059 





АНС 


20850 
2188 
Seg 
3481 
2003 
3484 
Ss 
389198 
SD 
SAAR 
5@@4 
Sep 
5966 
5@@7 
SB 
SGD 
S819 
S812 
$814 


Sac 


SOUND й @ 5 @ FREO(BD'X16.9) 

RETURN 

REM Ж ASCII RECEIVING x 

INPUT "WELKE BAUD=SNELHEID (114) "Вр 

SOUND o @ 5 й FREQ(BDX16, 2) 

FOKE #FAG2,#172REM ASCII S-BIT 18T-BIT 

GOSUB Same 

GOTO 19 

COLORT 7 @ 7 7:FRINT CHRS$(12):POKE 4875,95 

FOKE #8A,#D7:POKE SBB,4BD:POKE #BDDO, #CB 

CURSOR S,22:PRINT "Mode +: ":CURSOR 2@,22:PRINT "Case s: " 
CURSOR 235,22: PRINT "Char nn 

CURSOR S,21:PRINT "Speed : ":CURSGÜR ZÜ.Zi:rPRINT "8-0-5: " 
CURSOR 3S5,21:PRINT "PTT y. 

CURSOR 12,21:PRINT BD!:CURSOR 28,21:PRINT "OEF" 

CURSOR 43,21:PRINT "OFF" 

PRINT " < To escape press °" TAR! >" 

FOKE #BF47,M! 

CURSOR 0,19 

RETURN 
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4045. “<< 2128 Hz 








FSK-modem 








UARTI - INTERFACE 





MATH-CHIP 


*5V 


Adres~decoder 










34 Write control М. 
25 Write Data 


„4+18 Read Data 
16 Read Status 





FÀxx 
ic 45 
pin 11 
(7415155) 
45V 
SOUND f 
from pin 10 ic 8255 
Or kathode D55 
D7 
D6 . 
D5 6e nw FAO2 
D4 
D3 
D2 
D1 
DO 
FAO2 R 1r 2 Serial Out to FSK 
FAOO R ү Lay РАОО 
DATA IN 


from tone decoder 








Adress range: Status UART: 

FAO0 Read po data receiver FAOO IAND 1 = Send Buffer empty 
FAOO Write(Poke) data in transmitter buf. РАОО ТАЛ” 2 = PE = error 

FAO2 Read status UART FAOO IAND 4 = FE - error 

FAO2 Write control word in UART РАОО IAND 8 = OR - error 


1/ FAOO IAND 16 = Data rec. ready 
Controlword: 25 Dec.- 5 bits,1 2 stopbit 
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4x AN $5004 


Ie -M— 
“sta Id He 


575 
WH 


EREA AYTAR 
2x12V 0,06A 





seg 
zeg 


ii 
TT 











FUSE 0,54 


4 


ШЕЛ. 






220 
Ms 


6 
SR 
T 





jb 


D 





2X 10% 








a: 
i M 


i 


° 






UARTISS 8666 
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Г 
~S 






ОЙ 


OFFERT ENG 
FOR 


SYSTEMS 





DISK DRIVE WII SA Ф 
DIGITAL. RECORDE ЕТ 
FEF SL OR EL FRENTE 
HIGH SPEED LOADER 








GENERAL: 


This article is an introduction on the DAI-DOS 1541, which 
is announced in Newsletter 26. 


Up to 4 VC1541 disk drives are supported by the operating 
system, together with 4 digital MDCR recorders and 2 audio- 
Cassette recorders. 


The operating system is contained in one 2744 EPROM, using 
the address areas FOOO-F7FF and F9OO-F9FF. The address area 
FAOO-FAFF is used for an additional 6116 RAM. 


The software is fully compatibie with the existing DAI BASIC 
versions V1.0 and V1.1. No addresses in the RAM area 0000- 
BFFF are used for the disk operating system, except the ones 
already used by the MDCR software. 

For addressing purposes, the DCE-RWC concept is used. 


The Memocom MDCR software is also compatible, as long as it 
is used from BASIC, or under UTILITY is addressed only via 
the entrypoints as given in the MDCR manual. 


Also software for driving a parallel 
speed data loader is implemented, 
additional commands. 


printer and a high 
together with several 


MEMORY MAP: 


The address range FOOO-F7FF is used by several switched ROM 
banks: 


Bank O: General routines for the floppy disk drive (FDD), 
the digital cassette recorder (DCR), the parallel 
printer, the extra commands and all housekeeping 
routines. 

Bank 1: The floppy disk Operating system. 

Bank 2: The operating systems for the digital recorder and 
the High Speed Data Loader. 

Bank 3: Free for own use, except F100-F1FF, 


The addresses F900-F9FF are used for several general purpose 
routines. This address range is located in bank 3 of the 
EPROM. 


A parallel printer can be connected to the 26 Pins connector 
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on the interface. The high speed data loader must be can- 
nected directly to a connector on the flat cable. 


FOBWER- DN: 


When the DAI is switched on, er when the ^reset"-button is 
pressed, the following happens: 










Screenheader 





"DAI FC? 


[BER Ge en present? — no 















DCRO present? 
yes 


WEN plug removed? na 


yes 


DCR USER present? 





na 





FDDO present? 






Yes yes 










screen "DCH USER? 
DCRO selected 
DCR autostart 





screen "DOS 1541" 
FDDO selected 
wait space 









DCRO present 
with cassette 
inserted? 







Ge 





DCRO т ted CASI nue 
wait space wait space 


=| 





COMMANDS: 


A11 DAI commands for writing and reading like LOAD, SAVE, 
LOADA, SAVEA and UTILITY Write) and Read) are valid for 
EDS and FDD. Only the command "CHECK: does not work on tbe 
All files must be saved to disk with a filename. When using 
filenames, max. 16 characters are allowed. 

Existing files can be overwritten by using: "Z:FILENOM 


The DCR commands are equivalent to the commands described in 
the MDCR manual, except that only the short versions are 
supported. 

If a DCR is selected as back- Up memory, all FDD commands are 
disabled (DEVICE MISMATCH error). 
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For the FDD, the following commands are available: 


— FDD X s: Selects disk drive 0-5 as back-up memory. 
DOR commands are disabled and will result in 
a DEVICE MISMATCH error. 


— FORMAT : FORMAT" DISKETTENAME, ID". 
Formats а new diskette. Each diskette should 
have a name of max.16 characters and a unique 
identity code of 2 characters. 

- SCRATCH: SCRATCH"FILENAME:,FILENAMEZ2...... WEI 

Removes indicated files from the diskette. 


~ RENAME з RENSME”"NEWNAME=OLDNAME” . 
Changes the name of a file on the diskette. 


- СОРУ : COPY"NEBWFILE-OGLDFILE1.O0LDFILE2,....". 
Merges several files together in a new file. 
— INIT a INITializes the disk drive to the power-up 
state. 
~ VALID +: The VALIDate command re-organizes the dis- 
kette to get the max. free space available. 
== DIF : Reads the Dikectory from the diskette into 
the screen memory. 
By means of the cursor keys, a BASIC or a 
UTILITY program can be loaded directly from 
the directory. 
FRG-files will run automatically when loaded 
from the directory. 
For USR-files, the UTILITY mode is entered. 
— FYER x FVER"FILENAME", 


Verifies the recording of the indicated file 
by means of a checksum test. 


Because all files are opened and closed automatically, no 
additional "OPEN and "CLOSE commands are required. 


Several additional commands are availables 


— BOOT : ROOT"ORJECTname, BAS ICname" . 
Loads an object code program, followed by a 
BASIC program. This command is a replacement 
for the DEL bootstrap loader. 


— UBL з UBL'"FILENAME". 
As "ROOT ‚but for files consisting of a BASIC 
and a object code part, stored with the same 
filename with the following suffixes: 
— FILENAME/0 object code part 
— FILENAME/B BASIC part 

- CAS X +: Selects an audiocassette recorder as back-up 


memory. if no number is given, recorder i is 
selected. 
DCR and FDD commands will cause a DEVICE MIS- 
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HATCH error. 


~ HSL X з Reads data from EPROM О—5 in the High Speed 
data Loader. 

~ USR 3 Calls a USER defined object code subroutine 
via the 1/0 table address #02DA. 

— LNGN f Switches on the AUTO-LINENUMBER function. If 
in the direct made the first input is а space 
then automatically a linenumber is generated. 

7 LNOFF з Switches off the AUTO-LINENUMBER function. 

7 <ТАВ>У s Clear the screen. 

= fC 3 The default cursor — flashing underline — is 
selected. 

= £D 5 Qutput to the screen only. 

~ ZE z Input from the edit buffer. 

— fF : Sets Implicit Floating Faint. 

~ JH з 'HELP^. Displays several important 1/0 direc- 
tions. 

— 41 : Sets Implicit Integer. 

— ZM : Short command for MODE О. 

- AP т Output to parallel printer. 

— /8 3 Output to screen and RS232 output. 

= ا‎ ї Sets default text colours. 

— /Q 3 Defaults various DAI pointers. It is a combi- 


nation of: select mode О, clear screen, set 
default text colours, set default cursor and 
select IMP INT. 


de : READ LINENUMBER: It is possible to read DATA 
statements on a given program line via: 
io A&X-zlinenumber?: CALLM #F33A, AZ 
20 READ .... 
IN 


ERROR MESSAGES: 


For both the DCR and the FDD, the standard DAI loading error 
messages are used. 

The FDD reports several error messages itself. They can be 
found in the VC1541 manual. 

In addition, several DOS error messages will be displayed. 


USE OF DOS COMMANDS FROM BASIC: 





All DOS commands are valid in direct mode only. To enable 
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the use of these commands fram BASIC, the commands must be 
Placed ina КЕМ? -stateiment, which follows a CALLM #БООО 
statement: 

io CALLM 8FOOO: REM FDDO:DIR 

20 A$-"FILEMAME": CALLM #FOOOz REM SCRATCH A$ 


WHAT WILL IT COST: 





The VC1541 disk drive can be bought іп every computer shop. 
There is quite a difference in the price !!' 

The interface card and the EPROM card together will cost 325 
Dutch guilders. An interface cable (not required if you have 
already a flat cable for the DCR) will cost 50 Dutch guil- 
ders in addition, but can be also easily made yourself. 


HOW TO GET IT: 


Send two completely filled out EUROCHEQUES (max. DEI, ZOO. — 
per cheque) for the amount of: 


Df1.325.—- (interface + EPROM card) 
or Df1.375.— (idem + flat cable) 
to: 
Feter Wiegers 
Corneliusstraat 5 
6432 CZ Hoensbroek — The Netherlands 


Delivery will take about 6-8 weeks. 
For more informations: 


Jan Boerrigter 

Fabritiusstraat 15 

6174 RG Sweikhuizen — The Netherlands 
tel. 04493-20935 (19-21 H) 


The "DAI-DOS i1541' is a co-production of: Jan Boerrigter, 
Hein Kop, Henk Rison and Peter Wiegers. 
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Werkend аап een programma werd het scherm ineens zwart. Niets bleek er nog te 
werken. Mijn DAI (rev 4) was volledig uitgevallen. Goede raad was duur. Ik heb 
de multimeter gepakt en al snel bleek wat er aan de hand was. De -5 volt 
spanning was geheel weggevallen. Na het losnemen van draadbrug 25 keerde de -5 
voit spanning  weer terug, De voeding was dus nog heel. Echter de rest was zo 
ongeveer kortgesloten: de schakelingen vormden samen een belasting van ongeveer 
1,5 ohm, wat door de voeding als een kortsluiting wordt gezien, zodat de 
beveiliging in werking treedt. Aangezien het een zeer ingewikkeld apparaat is 
liet ik de reparatie liever aan deskundigen over. Toen kwamen de problemen. 
Middels de Fa vd Bend in Vlaardingen werd prijsopgave gevraagd bij de 
reparatieafdeling van een elektronicagigant in Den Haag. Mij werd n.1. van 
diverse kanten verzekerd dat de fa  INDATA mijn DAI zeker zou herstellen, echter 
tegen forse uurtarieven en hoge transportkosten. Het was een vrij grote 
teleurstelling toen Den Haag liet weten d.m.v een schaderapport dat ook bij hen 
moest worden  gerekend op minstens 4 uur werkplaatstarief tegen f80,-- per uur 
exclusief B.T.W. Daarbij kwam; dat de eigenlijke fout nog niet gevonden was. Wel 
Коп men mij zeggen, dat de 8080 en de adresbuffers defect waren. Omdat het er op 
begon te lijken dat reparatie onbetaalbaar zou zijn heb ik uiteindelijk toen 
maar besloten zelf een poging tot reparatie te wagen. Zodoende heb ik machine 
weer opgehaald met een nieuwe 8080, 2х7415241 (IC's 83 en 94), 1x7LS86 (IC 93), 
enkele stuks  2N3704, enkele tantaalelco's en diverse voetjes. Bij de fa vd Bend 
had men n.l. ondertussen ontdekt, dat T13 ook kapot was. Ik ben begonnen met de 
genoemde ic’s gewoonweg te slopen. Want hoe kom je nu zo gauw aan een 
desoldeerstation? lets  lossolderen op een doorgemetalliseerde, dubbelzijdige 
print valt niet mee! Op de vrijgekomen plaatsen heb ik voetjes ingesoldeerd. 
Toen bleek na meting de kortsluiting nog steeds te bestaan. Blijkbaar zat de 
sluiting niet in de 8080. Er zat toen niets anders op dan de -5 volt leidingen 
een voor een door te snijden. Uiteindelijk werd de schuldige gevonden! Het was 
саа, die de opamps in IC 15 (in het geluidsgedeelte) ontkoppelt. Na vervanging 
van C44 en T13 werden de nieuwe it’s in de voetjes gestoken, de doorgesneden 
printbanen weer hersteld en toen de spanning erop. De - 5 volt was in orde, 
maarverder gebeurde weer niets! De 5501 bleek ook nog overleden te zijn. Ook die 
werd vervangen. Weer geen resultaat. Wel waren bleken de adres en datalijnen 
weer in orde. Na geruime tijd meten kwam ik bij de PALkaart. Daar werkten ІСІ 
(LM 1889) en T2 (2N3704) niet, die eigenlijk niet verdacht werden aanvankelijk, 
alle signalen op connector 8 waren hel. in orde. Toen die vervangen waren bleek 
mijn DAI tot mijn grote voldoening weer te werken. Mocht iemand voit dezelfde 
problemen hebben, dat weet hij/zij nu wat er bij het wegvallen van de -5 volt 
spanning allemaal stuk gaat. Verder nog een verzuchting: Wat zou een reparatie 
makkelijk zijn als de print van fabriekswege geheel van voetjes zou zijn 
voorzien! 


Tenslotte nog dit: in DAInamic nr 26 stond een tip over het "ontstoren van de 
resetschakelaar", zodat stoorpulsen geen kans meer zouden krijgen de DAI te 
resetten, Wanneer men een weerstand van 220 ohm van het middelste kontakt van de 
resetschakelaar naar de *5 volt saldeert, wordt T10 bij het inschakelen van de 
DAI nogal zwaar  belast. Men bereikt hetzelfde, en dan zonder ekstra belasting 
als men van het middenkontakt naar О valt een keramische condensator van Sónf 
soldeert. Dit werkt prima! 


Hartelijke groeten, 
A.W.Verheijen 
Loevestein 21 
4254 EH Sleeuwijk 
Nederland 


tel: O1833-2392 
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Christian LEQUESNE 
"Les Bois" 
72480 MONTFORT-LE-ROTROU 


TIPS for РЫР owners: 
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12 
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3 















To add а Long com 
those 69 charac 

24 lin 
write-with Ful 




















Then use the funct to basic lines. 

Wiss Lines. B 

Replace (everywhere) SHIFT Ci on 

m ^; 5 vd [ | "| 

"{чипбе) SHIFT CHAR DELETE JE SPACE Pirrint) “Cauote) 

You will oniy have to w nu bers ? 
carriage T 





Explanation tyou have ju 
by one " (end of previ 
Go to basi nd 





à 


next Line 
OT ft. 


INT one 
e your t 





To rename a var 
brins vour h Program 

REPLACE old name by the new опе, Cali} 
More interessing ito change the tyre 
Replace X by ХА Call) if X is a ! t 
Then come back to basic. ($ POKE 3 


able (small program or Part of a bis programi 
i EWF buffer 1 








ible with SFU? 





a variable, (imros 
INSTANCE u 













eg and umn 
a row with the tabulation 





To mak able wi 
work in buffer 2 and 
that vou want.Like th 
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Eet utilitaire permet la réalisation de dessins 32 points x 32 points en 
Mode 6 et le stockage de ces dessins Pour pouvoir les réutiliser dans vos jeux 


Chargement de ce programme : 
a) Taper la partie Basic et l'enregistrer sur cassette 


b) Taper au moyen de la commande (Substitute la partie langage machine et 
l'enregistrer:  W3000 505Е LM 3000 zo5F 


c) Démarrer le programme avec RUN 


Déscription générale 
“Le dessin se fait dans un carré 32x32 en mode 2 {nettement plu reposant pour 
la vue !!) au moyen d'un point que l'on deplace a l'aide de PDL (0) et PDL (1) 


-Appuyer sur le bouton du paddle fixe le point sur le dessin. 


Commandez 
Appui sur Donne 
1,2,3 nu 4 Change la couleur du point avec le registre 1,2,3 ou 4 


8 Stocke le dessin {les octets le constituant) entre les 
adresses #5500 et #555F. 


H Zoom :montre le dessin en mode А {transfert de #5500 
a #555F sur l'écran mode 4, AVANT d'appuyer sur 7, 
appuyer sur 5 


R Retour au mode 2 avec dessin (transfert de #5500 a #5500 
sur l'ecran mode 2) 


N Nouveau dessin . Attention la commande М n'annule pas 1e 
dessin précedent . Si vous voulez vraiment l'effacer , 
faire NETS. 


Lorsque le dessin est terminé . appuyer sur BREAK , taper UT , 
WILA SSOF DESSIN 1 . Pour le recuperer , charger l'utilitaire et sa partie 
langage machine , charger le dessin + faire RUN puis R ou 7. 


Les 4 couleurs utilisées peuvent en definir d'autres {voir l'article de 
Cedric sur les trames dans le DAInamic 23) 


Le désassemblage de la routine ZOOM (#3022 $3040) montre que celle ci 
transfere arbitrairement les octets stockés de #5500 à 4556F sur l'adresse 
HAGEO (coin inferieur droit du carré) . Une toute petite modification à cette 
routine et il est trés facile de transferer ce qu'on veut DU on veut , mais la 
е vous laisse travailler !'!' 


Les 27 dessins de MEMDDAI ont été réalisés avec cet utilitaire et toutes 
ies parties graphiques de MEMODAI avec un utilitaire du meme type . 


y 


Amusez vous bien 
Patrick Pedelaborde 


*ULTRA GRAPHIQUE* 


REM 








їл L4 к 









o- 





ze 


THEN MO 
THEN MO 
78 THEN MD 





DEPLACEMENT DL! POINT 


10: RE 


*ULTRA GRAPHIQUE* 
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JEU DE CARACTERES EXTENSIONS DAlminiCALC 


Les lignes de BASIC qui suivent peuvent etre 


Certains lecteurs ont remarqué des differences entre une ajouté directement à DAI mini-CALC pour éviter le IMP p 
partie des caractères présenté danc le Me 25 et ceux qu'ils avant le RUN. De plus vous aurez la possibilité de 
ont l'habitude de voir sur leurs écrans. Ceci est du au representer sur un graphe cartésien la ligne du tableau qui 
fait que la largeur des lignes en mode texte IDctete est pointée par le curseur.Il suffira pour cela d'utiliser 


impairs des mots de commande égal à 7A) est réglée par le 
DAI à 10 paints. 

Cette valeur 16 4 été choisie pour permettre d'une part de 
voir les caractéres alphanumériques en entier {Y compris le 
jambage des minuscules). D'autre part cela permet d'avoir (IMPINT) 
un bon espacement entre chaque ligne (2 Points min.), ce 
qui accroit le confort et la lisibilite, 

Par contre le dessin des lettres et sigles dans 1а МЕМ 
Ulemoire morte) du générateur de caractéres est lui fixé à 
15 points en hauteur, 


la commande /G (Dessin en Mode 4). 





J FOR I=#275 TO #29Е:РОКЕ 1,16:NEXT 


1000 +++ IF XX=6 AND XZ=6 THEN DD=6 





Conclusion pour chaque sigle affiché il Y а & points qui 61506 IF PK-71 THEN GOSUR 24000: GOSUB 4500:G0TO 4200 
sont invisibles !. les lettres et chiffres n'utilisent pas 9100 60508 9550: IF IMIN<>@ THEN BOSUB 55000 
i les possibilitées additionelles offertes par ces six 9550 IMIN=O:FOR KK=1 TO 30: IF A(KK,JJ)<>9 THEN 
| rangées de points. Par contre les semi ~gr aphi ques sont pour IMIN=IMIN+1 
| la plupart programmés sur toute la hauteur de leur matrice. 9550 NEXT :RETURN 
[i Si vous désirez vous en Servir en entier il vous sera donc 25000 MAX=A{YZ, 1): MODE A:COLORT @ 3 5 16 
nécessaire de regler les mots de commandes de lignes à la 25010 FOR 1=1 TO 14:1F ACYZ,1) MAX THEN MAX=A(YZ, I) 
largeur maximale soit 15 (УЕ dans le mots de commande). 26920 NEXT :£Y=YMAX/MAXsEX=XMAX/13:AY=A(YZ, 1) HEY: 
AX=@ 
26936 FUR 1=1 TO 14:NY-A(YZ, I *EY:MX-(I-1) REX: 
Exemple : DRAW AX,AY NX,NY 23 
26040 DRAW NX,@ NX,NY 21:AXzNX: AY=NYs NEXT 
Pour passer tout l'écran en mode 'Super-haut^ 25050 IF GETC-0 THEN 25050: МОВЕ 0: RETURN 
(Оп aura 1А lignes de texte au lieu de 24) 
1 REM zx MODE SUPER HAUT 36/01/85 C.D. xx Dlivier Pattiniez 


10 PRINT CHR$(12) 

20 FOR IZ-$BBiS TO SBFEF STEP 134 

S6 — PDKE 1%, #7F 

46 NEXT 

Se REM zx EXEMPLE DE SEMI-GRAPHIQUES te 

6@ CURSOR 16,20:PRINT CHRS (6) sCHRE (7) 

7@ CURSOR 10, 2i PRINT CHRS (14) 3 CHRS (15) 

8@ CURSOR 20, 15:PRINT CHR$ (17) sCHRE (17) 
Pour remettre l'écran dans son état initial il suffit de 
taper PRINT CHR& (17) 





F * Les cassettes DCR certifiées sont toujours aussi difficile 
ime EE O Ee iu dg xxr à se procurer à des ix interessants en France. Si vous 
POS connaissez un bon fournisseur, envoyez-nous son adresse | 


OS be en langage machine & assembleur, des 


es’ capable de convertir les nombres en decimal- 
sont disponibles pour moins de 240 Fra. 
pour plus de précisions. 






Pour la remettre bien taper 47A au lieu de #7Е 


C. Dufour 
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ís)The timing can be lengthened by means of two keys, in order to bring 
the picture in phase (i.e.,to center the picture on the screen) 






ib)Qwing to the 1:1 sensing ratio, one can use the signal for testing 
purposes. Бу means of a waiting loop in the program the duration of a line is 
adjusted іп such a way that one period of the rotation number in force exactly 


imi $ А e ; : d р, 1 ne a 
The facsimile is a primarily commercial technique for transmission of fills the screen 


written documents, weather maps, satellite pictures and press photographs. When 
the first successfully tested facsimile equipments appeared in great numbers on 
the user market, this technique also entered the field of amateur radio. 
However , a facsimile station can also be realized via pure electronic methods. à 
microcomputer naturally lends itself to do that. In order to show the associated 
advantages and limitations, I wrote an article on the subject at the begining of 
1983 in the periodical "RTTY", With the kind permission of the "RTTY" editor's 
Office, à great deal of its text as well as all its figures have been borrowed 
from the periodical in question. 


íc)The timer can also be replaced by other signal sources. In that way, 
the DAI and a telecopier can be linked in phase with each other, in order to 
transfer pictures from the copier to the DAI, and vice versa, 


S)The FM-to-BCD decoder 


The circuitry of the FM-to-BCD decoder originates from Volker 
Wraase.It was published in the"CO-dl" and is therein very well described. The LF 
signal is transformed into a rectangular signal by the operational amplifier 
ICi. The following differential element generates on the falling side sharp 
impulses which trigger an oscillator and a monoflep (ICS), The oscillating 
frequency is about 16 times the black frequency. The oscillator and the monoflop 
are adjusted by means of the potentiometers VRI and VR2, in such a way that the 
following binary counter ICA counts up to 16 during the black frequency (1590Hz) 
and stops counting during the white frequency (2@00Hz). These values are stored 
by IC7 until the next period. A diode display is connected to the exit of IC7. 
It consists of a 4 to 16 decoder which steers 14 lightdiodes(for 16 shades of 
grey). Only that way can one judge if the tuning is good and if VRi and VR? are 
correctly adjusted. By means of switch 62, the synchronizing signal can be 
incorporated in the picture for testing purposes. 


The facsimile device consists of the following component parts: 


DA DAI computer 48KB and a Memocom Digital Cassette Recorder (MDCR) 
DA FAX-timer 

х) Ап FM-to-BCD converter 

4A program 


These individual points are described hereunder: 
1)The DAL Personal Computer. 


With its high colour-graphic resolution of 255*325 pixels and 4 grey 

shades, the DAI PC has , at least on that point, taken the leadership since a 

long time, so that it seemed well-suited for facsimile. Only the 4 shades of 

ied рсе а Ee It can only be hoped that the PC will in the future In its original version, the program originates from the QUASAR 
equipped on a r i aphi i , | t 

quipp arger scale with graphic memory, A MDCR is used as program software house in Haltern, but it has been modified and improved in relation 


and graphic memory. Due to its high transfer rate of 6009 bauds, it is ver 
bes 1 у good ; ; А ; A 
for loading and storing pictures. ¥ 9 with several important points: 


4)The program. 


2)The FAX-timer. (a) “Broadcasting 

In the beginning I generated the broadcasting signal directly with the sound 
exit of the DAI. In the meantime however, І have used a AM and FM modulator 
which is steered by 2 bits of the DCE bus. In that way I can send pictures ta 
the telecopier or broadcast them by radio. 


In the facsimile technique, one works in a quartz-synchronous fashion, 
which means that the recording and the broadcast has to take place with a 
precision of 18 to the power minus 5 per rotation. Figure 1 shows by means af a 
weather map that was received directly from Meteosat 2 (geostationary meteo- 
rological satellite operated by the European Space Agency), the recording format 
of a facsimile picture. Beginning below on the right. a starting signal of 3600 
Hz is first broadcast for a duration of X seconds. Thereafter follows the 
phasing signal. It consists of a 12.5 ms long, black picture data signal and of 
а 257,5 ms long, white picture data Signal The next picture lines begin with а 
start of line signal. The signal is designed in order to produce an automatic 
amplifier regulation. Above, at the end of the picture, a stop signal can be 
seen, It lasts for 5 seconds and has a frequency of 450 Hz. The FAX-timer is 
also used for the synchronisation of the broadcast and of the reception. It 
delivers, with quartz precision, the start signal for each line. The duration of 


se recording for опе line is &djusted in the program by means of а waiting 
Loop, р 


{b) Receiving. 


The resolution of 225*335 pixels and 4 shades of grey is of course not normally 
sufficient for facsimile, I have therefore tried to generate pictures һу 
sofware, with a greater number of shades of grey. In this working mode, the 
program puts always 2 points together, so that 9 shades of grey are possible. 
This naturally halves the resolution. On the diagram (figure 2) it can be seen 
that a strong error happens in the middle area, A subsidiary program now 
eliminates numbers 8, 9, 10,11 and fills the remaining ones with 15. In this way 
one obtains a grey distribution which is usable. 


ic) Generating a test picture. 


The circuitry consists of a uartz oscillator whi vi 25 i i i i 
KHz, and of two dividere. A J-E flipflop ensures а MULCA UE napi dc Ds RM EE 
principle of the programmable dividers originates from the “periodical "ER 
Berichte",numher 4/79, where it ie described in full details. The FAX-t&mer by 
hardware has the following advantages on the software solution: | 


fe) Picture loading from and storing on МОСК. 
(f) Indicating the scanning speed (rotation number) 


(a) Obtaining the picture on the printer. 
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I hope that, being stimulated by the present articie, numerous DAI 
users will get busy with the problem of picture processing, as this subject will 


gain more and more significance in the future. ; 
Aussteuerbereich 
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V4 201 V4 401 









0.5 Hz für Testzwecke 
1.0 Hz » 60 U/min pre 

20 Hz = 120 U/min ped 
4.0 Hz в 240 U/ min 1/2 7476 Veste 


FAX-TIMER 
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See also front page of Newsletter 25. 
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6.8k 


program 


identification 





title 
author 
purpose 


comment 


COULEURS MULTIPLES 





C.DUFOUR 





gives many color-scales 











REM PBM DE COULEURS MULTIPLES 

MODE O:PRINT CHR$(12) 

CURSOR 0,0:COLORG O 1 1 1 

CURSOR 19,14 

INPUT "ENTREZ:HAUTEUR DES LIGNES[O-15]";CX 
FOR IX-&BFEF TO #ВЕОО STEP -8 

POKE IZ,4304CX:PDKE 1%-2,0:POKE 1%-3,0 
POKE 1%-4,#30+C4:PDKE I%-6, #AA:POKE 1%-7,0 
NEXT 

FOR I%=8BFEE TO #BFOO STEP -4 

READ AZ:IF AX=#FF THEN 300 

POKE 17,47 

NEXT 

DATA #80, #81, #A1,#8C, SAC, 88F , ВАЕ 

DATA #8B, #AB, 882, HA, #84, #A4, HOS, HAS, HEA, HAA, HOE 
DATA #AE, OF, AF , #80, HAD, #85, HAS 

DATA #87, #47, #80, $40, #88, 448, #8Е 

DATA #AF, #80, #A0, #80, #A0, #80, 440 

рата #8B,#AB, #84, #44, #81, 821, #85 

DATA #45, #8Е, HAE, 68A, HAA, #83, BAS 

DATA #80, #40, #90, #FF 





Hr OHrs 


REM M.DIERCKX SINGING IN THE MORNING ... 
ENVELOPE О 14 

Z-RND (40) +10 

FOR X=100 TD 1000 STEP Z:SOUND 1 0 15 O X:NEXT 
GOTO 5 
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130 


ie 





120 


13e 


ci + 
$m 


168 
175 
189 
185 
196 
200 


210 
















LI MEME. cM шшш г 






























: MODE 






DRAW oi, Е 












/18.0:FÜR 1!=1,@ TD 14,@:М!=(М!#1!)+195,@:1БАМ N!,S6 N'.62 15: 
52133.0/15.0:FÜR I!21.G TO 14.G:M m (MIRI) + 
1,48 N!,46 15 
DRAW N1!,48 N1!,54 15:NEXT:DRÓM N1!,48 N1!,54 6 
55123.0/14,0:FDR 1171.0 TO 12.0:N!-(M!*11)4117.0: RAW N!,22 N!, 38 15: 
NEXT I':DRAW N!,32 N!,38 à 

FOR 1!=145.0 TO 194.6 STEP 3.@:DRAW I!,124 1!,136 IS:NEXT I! 

GOSUE à 

X!z110.0:Y!- 
X!z148, 6 Y! 
X!2140,01Y 
X!sB1.0:Y!z1256.0:C!-6. Gi C1 
10000 





O:NI'-(OMI EID) -99,.0: DRAW 
































Dë, 0: C! =0. O: VFLAG = 


OF isi, 45 A$="DA1": 50508 Ae 
.SiAtz"PERSONAL":60SUB 40 
o, Dr А%= "СОМЕЦТЕК" г 50508 46246 

„60508 19860: X!=258.@:¥!=134. Ø: GOSUB 





















fo OsCl=7, Or Ie 





„B: BOSUB 16000:X!2254.0: Y!z128.0: G0SUB 
Y!z152.8:0!25,0:GOSUB 10088 

36.0 TO 219,6 STEF S.0:DRAM I!,166 I!,172 15:МЕХТ I! 
76 ; "ILE 4,178 215,234 15 

© TU E GINGLDSB'COS(CO! 
DRAW 68,168 G60*14*8!,1698414«B! ©: DRAWN 
DRAW 74,204 74-5*0',20445*B! ©: DRAWN 2 
DRAW 54,214 54+10+Д! DEL Gr DRAW 2 
NEXT Z! 



























0/14. 4: B!=54. 0/16. 6: COL! 
: Diet. 1,178. Х!+А!,254 COLE COL SCOL 4 
1,0:GDSUB & 
FOR Ais 
COL! =1 
FOR ¥!=178.¢ 
1.@2G0SUR ёё 
FOR Y!z234.0-B 
COL !-1, 6: GOBUB 
GOTO 51%: SOUND 
SOUND © @ 15 Ө FREG(XC Y!/10.00 WAIT TIME S:SOUND 2 @ 15 е 
FRED (Y!«X1/180,6 : 

DATA 8,65, 
DATA 13 
DATA 
DATA дав, 40 256, 22,82, 22,408, 460 
140,40,2 
DATA 94 


STEP -AlsFILL X!,178 Х!+А!,254 COL':COL!- 


STEP B!:FILL 124,Y! 21 





a Y!+B! COL!:CDOL «COL t+ 


J 178.06 STEP -B':IFILL 124,Y! 215,Y'«B! COL':DCOL!- 


:NEXT 












226,13 


50,20, 6 







36,82, 124, 40, 





,3060,148,2 


56,134 





BORDO, 














mee 








JE IL B 
:FEND! 
ESS, 


TO XMAX-2.6 






‘DIFF! THEN FEND!z1.0: RETURN 





REM SEGUE IL BORDO VERSO SINISTRA. 

CL!z06.8:FEND!zG6,O0:FÜR ED'zX' TO 2.68 
.2D1! AND SCRN(IED!,Y!) 
DC!SsDIFF! THEN FEND!= 





Р -1.@0 
Sa 












1.6: RETURN 





REM MASTER 
IF DY!-6.0 THEN DY!s-1.6 


t 
DY!:GOSUB 16110: Y!zY!'4DY! 





DYi!= 
GOSUE 
IF FEND! THEN 10396 

DRAW ES!,Y! ED! Y! C':DIFF!sED!-ES': Y zY! «DY! 
X'sES':BÜ0SUB 10420:X'-ED':BOSGUB 1849@:G0TO 19520 
IF DY!-DYi1! THEN DY!=8, n Sx RETURN 

FEND: --—DYi:rGÜSUB 16 GOTO 10356 




















REM ESTREMO SINISTRO. 
A(X! Y!)=C1! THEN BDSUB 1 
IF SCRNM(X!,Y!)2C! THEN FEND!z1 


GOSUB 10190: RETURN 


Tm 





: RETURN 
: RETURN 






REM ESTREMO DESTRO. 





8488 IF SCRN(X!,Y!)-C1! THEN GOSUB 16280: RETURN 
10470 2 IF SCRN(X!,Y!)=C! THEM FEND!=1, @: RETURN 
14508 2 BOSUB 101590: RETURN 





REM LETTERE. 
DIM CARS (99.0) 
FOR Z!=65.@ TO 96.6:READ A$ 






B) ORI RO 


*DAI DRAWS DAI* 


TURN 


THEN МЕХ 


(Ta RETURN 
! THEN МЕ 


XT 


! AND SCRM(ES!,Y!45206! THEN RETURN 


THEN RETLIRN 


AT 


P 
"URN D 











9 

$9 

e 

? © © e 
ө 

9 e © e 
e 








D 
e 
e 
® 
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404 
40450 
404А0 
40470 
49489 
40490 
40500 
46550 
40600 
40576 
40680 
406590 
40760 
49719 
40720 
40750 
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TURN 
THEN F!zi.6 









TO LEN (as) 

AE, ME, 1) 

R$ (ASC (TE) 
„© TO LEN(GR#)-1.8 STEF 4,6 

VLAG!-1.0 GOTO 4642 

IF MID$RS.N!.1)z"/" THEN X! 

“VAL (MIDS (ERE, Nt, 12 2 YY =VAL (MIDS (GRS, 

DEST 

EE М!+2,1))#Е! 
DRAW E 757, ,Jc8 Cc! 






М!+1,1)) 





:JESZY ! +VAL (MIDS 





JC9-X! «1eVAL MIDS (GRE, N! +2,1))*ЁЕ1 
JCi6zY-1-VAL(OIDS LORE, NEE, 1) 2 &F'! 
DRAW X HLHZL RE! VIFLEYY ap) JC9,.JC16 E! 
NEXT N! 
IF X!4B8*F!2zXMAX THEN X!zX1!:Y!zY!-10.0x*F! 
NEXT M! 
RETURN 
IF MID$(BRS,N!,1)z"/" THEN Y!zY!-9.0x*F':50TO 46480 


JCizX -VAL (MIDS (GRE, NIHT, 1) 2 &F 1 2JC22Y ! VAL (MIDS (БКЖ, МІ, 
JC Ae ! +VAL (MIDS (GR$, NT 2, 13) «F! 


DRAW JCL,JC2 003,104 C! 





NEXT Mi 

IF Y!-9«F!c0 THEN YV!zYi!:iX!zX!-9,.0«F! 
NEXT M! 
RETURN 
DATA 5,111251221253153727553/,B,111717471444114152535396/, 
DATA 12152747475621414152/,D, 1117114152561747/ 


DATA E, 7115114441757 /,F , 11171444175; 
DATA H,111714545157/ 
DATA 


Hun 


DATA M,111717353534359737231/,N,11173 1571652/,0,12 16274756 


DATA 1117144417475555/ 
DATA 0,121627475693212123351/,R,1117174753653514442451/,8 
DATA 1221214 2444151527474756/,T,17373137/ 
DATA U, 111721415157/,V,12317933713212133/,W, 1117515711 
DATA X,11 217165152575612561 
DATA Y,161756271624234553124/,2,175 

















13561151/,8TO0F 
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zX'-(0.O0*F'):b50T0 46466 


TTI 


| 


(бК%,М!+5,1)›)#Е! 


KEE 


JC äs Y! -VAL (MIDS (RS, N! 2, 1) 4F! 


C 
7/,6,121627572191515335343/ 


1,214151272747/,9,122121415257/,KV,111713572451/,L, 11171151/ 


S22141/,P 





io 


1i 
12 
13 
14 
15 
16 
20. 


21 
22 
23 
30 


Зі 
52 
33 
34 
35 
36 
37 
38 
39 
40 
5e 
аё 


ER 
62 
83 
76 


71 
72 
73 
74 
75 
8e 
70 


95 
94 
95 
96 
97 
98 
99 
100 
110 
120 
130 
146 
150 
188 


170 
188 


m 





УВ Жу. ШИ! 


REM Moving text / Thijs Berkx / dec. ’83 
CLEAR 200 


REM 

REM You can shorten this program by removing all 
REM lines with linenumbers that are not multiples 
REM of ten. 

REM 

REM input number of lines and text 

GOSUB 100 


REM 

REM Calculate start and end of screen (=source) 
REM Transfer start and end of source to mlp. 
GOSUB 200 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
FOR SCR-1 TO NRCH 

GOSUB 390: GOSUB 400: GOSUB 500 
NEXT SER 


The text is shifted as many tines as there are 
characters. Each time a new screen is build and 
moved to a separate buffer. 

SCRA=screennumber; NRDHX-number of characters 
build screen gosub 300 

move screen to buffer gosub 400 

shift characters in text  gosub 500 


REM 

REM Now a buffer is source and the screen is 
REM destination. Transfer destination to mlp. 
GOSUB 500 


REM 

REM By moving the buffers one after another to 
REM the screen a moving text is created  gosub 706 
REM Keep text moving until space-bar is hit. 


REM 

G=GETC: IF 6<>32 THEN GOSUB 706:G0T0 80 
END 

REM 

REM input number of lines and text 

REM 

REM NRLN=number of lines 

REM NRCH=number of characters 

REM MXNRCH=maximum number of characters 
REM 


MODE O:PRINT CHRS (12) : CURSOR 19,13 

PRINT “Number of moving lines (1-24) "3 

INPUT NRLN:PRINT :IF NRLN<1.@ OR NRLN>24.0 THEN GOTO 199 
MXNRCH=FRE/NRLN/ #86 

IF MXNRCH>6@ THEN MXNRCH=60 

PRINT ТАВ(10); "Туре text of maximum" PMXNRCH;" characters." 


PRINT :PRINT ms 


INPUT TEXT$: МАСН= ЕМ (TEXTS) 


IF МАСН<1 OR NRCHOMXNRCH THEN GOTO 100 27 133 
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196 


191 
192 
195 
194 
195 
196 
197 
198 
200 
210 
220 
230 
249 
250 
260 
270 
286 


291 
292 
293 
294 
295 
296 
300 
310 
320 
330 
340 
350 


391 
392 
393 
394 
395 
396 
397 
400 
410 
420 
430 
440 


491 
492 
495 
590 
510 


591 
572 
593 
394 
595 
606 
іё 
526 


det pe 





~~ MOVING BLOCK 
RETURN 


REM 

REM Calculate start and end of screen 

REM Transfer source to mlp 

REM 

REM STSCR-start of screen; EDSCR=end of screen 
REM STSRC-start of source; EDSC=end of source 
REM NRLN-number of lines 

REM 


STSCR=#BFFO~ (1242 NRLN/2) 48935 PAGE ӨЗ -- MOVING BLOCK 
STSRC-STSCR 
POKE #305, STSRC IAND 255 691 REM 
POKE #304, STSRC SHR 8 492 REM move buffers in sequence to screen 
EDSCR=STSCRANRLN##06 693 REM 
EDSRC=EDSCR 694 REM NRBF=number of buffers 
POKE #308, EDSRC IAND 255 595 REM STSRCBF=start of source buffer 
POKE #309, EDSRC SHR 8 696 REM EDSRCBF=end of source buffer 
RETURN 697 REM mlp "move block" at #500 

698 REM NRCHZ= number of characters 
REM 699 REM 
REM build screen 
REM 


REM NRLN=number of lines 

REM NRCH-number of characters 

REM 

PRINT CHR$(GG2):CURSOR 9, 114+NRLN/2+NRLN MOD 2 
FOR 1=1 TO NRLN 

FOR Ј=1 TO GO/NRCH:PRINT TEXTS3:NEXT d 


PRINT 
NEXT I 
RETURN 
700 FOR BFNR=1 TO NRCH 
REM 710 1  STSRCEF=#B350-BFNRANRLN##486 
REM move screen to buffer 720 1 POKE #305,STSRCBF IAND 255 
REM 739 1 РОКЕ #306,STSRCBF SHR 8 
REM STBF-start buffer (destination) 740 1 EDSRCBF-STSRCBF4NRLNAHEBA 
REM NRLM-number of lines 750 1 РОКЕ #308,EDSRCBF IAND 255 
REM SCR=screennumber 760 1 POKE #509,EDSRCBF SHR 8 
REM mip "move block" starts at #300 780 1 CALLM #300 
STBFz4B3530—-SCRENRLNAHIEBA 790 NEXT BFNR 
POKE #30B,STBF TAND 255 800 RETURN 
POKE #30C,STBF SHR 8 
CALLM #300 
RETURN 
REM 
REM shift characters in text 
REM 
TEXTS-RIGHTS (TEXTS, 1) +LEFTS (TEXTS, NRCH-1) 
RETURN 
REM 
REM Transfer destination to mlp. 
REM 
REM STSCR=start of screen PC UTILITY V3.3 
REM »D3eo 315 


POKE #30B,STSCR ТАМО 255 
POKE #30C,STSCR SHR 8 
RETURN 


9300 FS CS DS ES 11 CC 64 21 08 6A 01 ФА B7 CD 4F DE 
9310 Еі Di Ci Fi C9 FF 
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